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SERIES 3200 
COMMERCIAL INSTRUCTION SET TEST PROGRAM DESCRIPTION 



1 . GENERAL 

The Series 3200 Commercial Instruction Set Test Program is designed 
to verify proper operation of the string handling instructions 
that generally are referred to as commercial instructions. 

The default tests check the following instructions: 

MNEMONIC OP CODE FUNCTION CODE FORMAT 



LPB 


6F 


STEP 


6E 


MVTU 


8C 


MOVE 


8C 


MOVER 


8C 


CPAN 


8C 


CPANP 


BC 


PMV 


8C 


PMVA 


8C 


UMV 


8C 


UMVA 


8C 



00 
01 
21 
02 
22 
03 
23 
04 
24 



RX 

RX 

RXRX 

RXRX 

RXRX 

RXRX 

RXRX 

RXRX 

RXRX 

RXRX 

RXRX 



In addition, an optional test checks the interruptibility of the 
commercial instructions. This test is optional in the sense that 
a requirement to run the test is a source of interrupts provided 
by a precision interval clock on a universal clock interface. 
It is highly desirable to run this interrupt-driven test to fully 
check the operational capabilities of the commercial instruction set. 



2. REQUIREMENTS 

The following is a list of the minimum hardware requirements for 
this test: 



o 
o 
o 



o 



Series 3200 Processor. 

Minimum 128 KB of memory. 

Console device (see Appendix A). The default 

Model 550 type video display terminal on the 

PASLA type interface. 
Object input device or multimedia loader. 



console is a 
X'lO'/X'll' 



6-2 38M9 5A15 ROO 6/7 9 



The following test programs should be run prior to loading this 
test: 



o 
o 
o 
o 



o 
o 
o 
o 
o 



Series 3200 Basic Confidence Test 
Series 3200 Processor Test Part 1 
Series 3200 Processor Test Part 2 
Series 3200 19-221 MOS Memory Test 



06-230 
06-228 
06-229 
06-236 



The following test programs are also applicable: 



Common Universal Clock Test 
Model 550 Terminal Test 
Model 1100 Terminal Test 
Model 1200 Terminal Test 
Common Carousel 300 Test 



06-133 
06-243 
06-217 
06-218 
06-183 



3. LOADING PROCEDURES 

The program object is self-loading using the 50 sequence shown 
below: 



LOCATION 


CONTENTS 


"0030" 


0000 


"0032" 


0000 


"0034" 


0000 


"0036" 


0050 


■0050' 


D500 


•0052" 


OOCF 


•0054' 


4300 


'0056" 


0080 



'0078 
•0078 
"0078 



1399 
85A1 
C186 



Illegal instruction 
New PSW 



Auto load instruction 

Final address = 'OOCF' 

Branch 

To address "0080" 

Object input specification 

For HSPTR/P 

For 8 00 BPI mag tape 

For floppy media disc 



Execute from address •0030^. 

To load the program using the multimedia diagnostic loader or the 

floppy diagnostic loader, refer to the appropriate loader program 

description. 

4. PROGRAM EXECUTION 

When the program is loaded, refer to Appendix A and set up the 
console and list device parameters if devices other than the 
standard system console are desired. 
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Select the program start address, X'AOO', and begin execution. 
Observe that the following title is output to the console device: 

Series 3200 Commercial Instruction Set Test 06-238 ROO 
* 

4.1 Normal Testing 

After the program title has been output, an asterisk (*) operator 
prompt character is output to indicate that the program is ready 
to receive operator coinmands (see Appendix B) . To automatically 
execute all tests in the default sequence, type the following 
sequence : 

TEST 6^ 

RUN (^ 

As each test is begun, the message 

TEST nn 
is output. At the end of the entire test sequence, the message 

END OF TEST 

is output followed by an asterisk (*) operator prompt. 

Ttie following tests are executed in the default sequence: 

TEST 1 

The instruction LPB, load packed decimal string as binary 

(convert from decimal to binary) , is tested - 

TEST 2 

The instruction STEP, store binary as packed decimal string, 

(convert from binary to decimal), is tested. 

TEST 3 

The instructions MOVE, move and pad, and MOVE? , move and 

pad with default pad, are tested. 

TEST 4 

The instructions CPAN, compare alphanumeric, and CPANP, compare 

alphanumeric with default pad, are tested. 

TEST 5 

The instructions PMV, pack and move (convert unpacked decimal 

string to packed decimal string) , and PMVA, pack and move 

absolute (forced positive result) , are tested. 
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TEST 6 

The instructions UMV, unpack and move (convert packed decimal 
string to unpacked decimal string) , and UMVA, unpack and move 
absolute (forced positive result) , are tested. 

TEST 7 

The instruction MVTU, move translated until, is tested with 

and without translation. 

This concludes the set of default tests. There is one more test — 

TEST 8 that should be run in order to verify complete capabilities 

of the commercial instruction set. This test requires a precision 
interval clock to provide the interrupt source for the test to 
check the interruptibility of all of the above instructions. To 
run TEST 8, it can be individually selected by typing: 

TEST 8 ^ 

If the address of the PIC is other than the default address (see 
Appendix C) , then modify the option entry by typing: 

PICADR nn ^ , where nn = the PIC address. 

To execute the test, type: 

RUN (ci 



This test can also be included with the previous tests to run 
together in sequence by typing: 

TEST 1,2,3,4,5,6,7,8 @J 

4 . 2 Continuous Testing 

A single test or sequence of tests can be repeated a number of 
times by using the LOOP option. For example, the following commands 
cause tests 1, 2, and 3 to be executed four times. 

TEST 1,2^ '^ 
LOOP 3_. @ 
RUN @ 

Each test selected by the test option is executed four times; 
then the NO ERROR message is output, and the next test is executed. 
After all tests are executed, the END OF TEST message is output 
followed by the asterisk (*) operator prompt. 

To cancel the loop option, enter the command 

LOOP 6'^ 
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A single test or sequence of tests can be repeated continuously 
by using the CONTIN option. For example, the following commands 
cause ail tests in the default sequence to be executed continuously. 



TEST ^^ 
CONTIIJ.. 1 (pp 
RUN @) 

As each test begins, the message 

TEST nn 
is output. As each test is concluded, the message 

NO ERROR 

is output if appropriate. To terminate the CONTIN option, the 
user must press the break key on the system console. At that 
time the asterisk (*) operator prompt is output. To then cancel 
the CONTIN option, type 

CONTIN @ 

'I'he continuous mode can also be invoked by tarninq the list device 
off or off line after test execution has been started by the RUN 
command. All selected tests are run continuously. Obviously, 
there will be no message output at all. 

When the list device is turned back on, the current running test 
is allowed to complete. Then the message 

TOTAL TOTERR 
XXXX YYYY 

is output, where XXXX is the hexadecimal number of times that the 
test was repeated and YYYY is the hexadecimal number of errors 
that were encountered. 

NOTE 

If the value of either TOTAL or TOTERR 
exceed X'7FFF', test execution is aborted 
by way of a breakpoint instruction and control 
is given to the programmer's console. When 
execution is resumed from the breakpoint, 
the TOTAL and TOTERR messages are output. 
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5. ERROR PROCEDURES 

In any of the default tests, the occurrence of an error condition 
causes an error message to be output. After the error message is 
output, the test resumes from either the point of error or the next 
sequential section of the test depending on the error involved. 
In the event of an error encountered in optional test 8, the test 
will respond as above with the exception on any errors involving 
interrupts or the setting of the iiP (interruptible instruction 
in progress) bit of the PSW, these errors aborting the test sequence. 
Sequential instruction testing in Test 8 provides results from one 
instruction to be used as the source data for the next instruction, 
so an early error may cause a chaining of errors from the first 
error encountered onward . 

5.1 Recoverable Errors 

In the case of a recoverable error, the program prints an error 
message on the output device as shown below, and the next section 
is executed as outlined above. 

ERROR OTXX 

Where T = test number in which error was detected 
XX = error code within the subtest 

Additional data may also be printed, such as expected and actual 
condition codes, expected and actual results, and first and second 
operands. The address of the instruction under test is always 
printed. 

Refer to Appendix E for an explanation of error printouts. 

5.2 Unrecoverable Errors 

Unrecoverable errors are those associated with interrupts that 
occur unexpectedly or don't occur when they should. Upon detection 
of such an error, an error message is output as shown below and 
testing stops. 

ERROR OTFX 

Where T = test niomber in which error was detected 
F = hexadecimal digit 'F' 
X = error code 

Additional data may also be printed, such as program status word and 
location count value at the time of the error, error reason code, 
incremented location count value, etc. 
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APPENDIX A 
USER DEVICE DEFINITION 



1. The halfword labeled lO (see the program listing) has the 
default value for a video display terminal on a PASLA/PALM/ 
Asynchronous Multiplexor Interface as the console input/output 
device and the list device. If a different configuration is 
desired, location 10 must be changed. 



10 






7 


8 


15 




CONSOLE DEVICE IDENTIFIER 




LIST DEVICE IDENTIFIER 



CONSOLE DEVICE 
IDENTIFIER 



X'Ol 



X'02' 



X'03' 



X'04" 



X'OO' and 
X'05' thru 
X'FF' 



MEANING 



Video display terminal (GDT, CRT, or 
Model 550, 1100, or 1200 terminal) on 
a PASLA, PALM, or Asynchronous Multi- 
plexor strapped for full duplex opera- 
tion and highest baud rate. 



Teletype type device, video display 
terminal, or Carousel 15 or 30 on a 
current loop interface. 



Reserved; interpreted as X'02'. 



Carousel 300 on PASLA, PALM, or 
Asynchronous Multiplexor strapped 
fo r full dup lex, highest baud rate. 



Reserved; interpreted as X'02' 



The video display terminal, if used on a PASLA, PALM, or 
Asynchronous Multiplexor, should be strapped for device 
addresses X'lO' and X'll'. If the base address (X'lO') is 
different, then the halfword labeled PASLADR (see the 
listing) must be changed. 

The current loop interface, if used, should be strapped for 
device address X'02'. If it is different, the halfword 
labeled CLIFADR (see the listing) must be changed. 
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APPENDIX A (Continued) 
USER DEVICE DEFINITION 



The line printer, if used, should be strapped for 
device address X'62'. If it is different, the halfword 
labeled LPADR (see the listing) must be changed. 

The Carousel 3 00, if used on PASLA, PALM or Multiplexor, 
should be strapped for device addresses X'lO' and X'll'. 
If the base address (X'lC) is different, the halfword 
labeled C300ADR (see the listing) must be changed. 
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APPENDIX B 
COMMAND/OPTION INPUT 

An asterisk (*) operator prompt is output to the console device to 
indicate that the program is waiting for user input. All option 
names must be typed in from the console, followed by a carriage 
return CR if there are no arguments or if default arguments are to 
be used. If argioments are required, the option name must be followed 
by a space, and then the desired argument or arguments separated by 
commas. A carriage return must be used to signal the end of every 
option/command input. 

An invalid command/option name or option value causes a question 
mark (?) to be output, followed by a carriage return, line feed, and 
an asterisk prompt. If during command/option input, a mistake is 
made, the hash mark (#) can be typed to delete the entire command 
line. A carriage return, line feed, and new prompt is output. 
The left arrow (■< ) can be typed to delete the previously typed 
character, or a string of characters can be deleted by typing a left 
arrow for each character to be deleted. The backspace character 
and delete character are treated the same as a left arrow. 
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APPENDIX C 
OPTION/COMMAND SUMMARY 



Examine each option in the following list. If a default value is 
specified and is the value desired, no action is necessary. If 
the default value is not the value desired, the option MUST be 
entered. See Appendix B for option entry. 



OPTION 



TEST n,n 



LOOP n 



CONTIN n 



NOMSG n 



PICADR nn 



INTLEV n 



DEFAULT VALUE 



1,2,3,4,5,6,7 



6C 



OPTION 



RUN 



CON 1 



N/A 



N/A 



N/A 



DESCRIPTION 



This command chooses the 
test or tests to be run. 



Each test is repeated n + 1 
CK n<X'7FFF' 



Enables the user to run 
all selected tests con- 
tinuously until the break 
key causes return to the 
command mode. 
n=0 : normal execution 
n=:l : continuous execution 



Controls message output 
n=0 : all messages output 
n=l : error messages only 



This command selects PIC 
address. 



Sets interrupt level, 



This command causes the 
program to output all 
options with their current 
value. 



This command causes testing 
to begin. 



This command results in a 
breakpoint instruction to 
return control to the 
system console. 
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APPENDIX D 
EXPECTED RESULTS 



SERIES 3200 COMMERCIAL INSTRUCTION SET TEST 06-238 ROO 



* TEST 

* OPTION 



TEST 1,2,3,4,5,6,7 

LOOP 

CONTIN 

NOMSG 

PICADR 6C 

TNTLEV 



RUN 



@ 



TEST 1 
NO ERROR 
^I'EST 2 
NO ERROR 
TEST 3 
NO ERROR 
TEST 4 
NO ERROR 
TEST 5 
NO ERROR 
TEST 6 
NO ERROR 
TEST 7 
NO ERROR 

END OF TEST 

* TEST 8 ^I^ 

* RUN €\% 



'I' EST 8 
NO ERROR 
END OF TEST 
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APPENDIX E 
ERROR MESSAGES 



ERROR 


ASSOCIATED 


NUMBER 


INSTRUCTION 


TTFl 


ALL 


TTF2 


ALL 


TTF3 


ALL 


TTF4 


ALL 


TTF5 


ALL 


TTF6 


ALL 


TTP7 


ALL 



EXPLANATION OF ERROR 



ERROR 
NUMBER 



ASSOCIATED 
INSTRUCTION 



TTIO 


LPB 


TTll 


LPB 


TF12 


LPB 


TT13 


LPB 


TT14 


LPB 


TT15 


LPB 


TT16 


LPB 


TT17 


LPB 


TT18 


LPB 



32 BIT ARITHMETIC FAULT INT 

ILLEGAL INSTRUCTION INT 

MACHINE MALFUNCTION INT 

UNEXPECTED EXTERNAL DEVICE INT 

32 BIT RELOCATION/PROTECTION INT (MAC OR MMU) 

EXP EXTERNAL DEVICE INT IN WRONG INT LEVEL 

DATA FORMAT/ALIGNMENT FAULT INT 



EXPLANATION OF ERROR 



EXP CC = 0000 NOT RETURNED 

EXP CC = 0010 NOT RETURNED 

EXP CC = 001 NOT RETURNED 

EXP CC = 0100 NOT RETURNED 

NO DATA FORMAT FAULT INT FOR INVALID SIGN 

EXP REASON CODE OF 2 NOT RETURNED 

NO DATA FORMAT FAULT INT FOR INVALID DATA 

EXP REASON CODE OF 3 NOT RETURNED 

RESULT OF INSTRUCTION INCORRECT 
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APPENDIX E (Continued) 
ERROR MESSAGES 



ERROR 

NUMBER 



ASSOCIATED 
INSTRUCTION 



EXPLANATION OF ERROR 



TT20 
TT21 
TT22 
TT23 



STEP 
STEP 
STEP 
STEP 



EXP CC = 0000 NOT RETURNED 

EXP CC = 0010 NOT RETURNED 

EXP CC = 001 NOT RETURNED 

RESULT OF INSTRUCTION INCORRECT 



ERROR 

NUMBER 



TT30 
TT31 
TT32 
TT33 
TT34 



ERROR 
NUMBER 



TT4 
TT41 
TT42 
TT43 
TT44 
TT4 5 



ASSOCIATED 
INSTRUCTION 



EXPLANATION OF ERROR 



MOVE 
MOVE 
MOVE 
MOVE 
MOVE 



ASSOCIATED 
INSTRUCTION 



CPAN 
CPAN 
CPAN 
CPAN 
CPAN 
CPAN 



EXP CC = 0000 NOT RETURNED 

CONTENTS REG 1 INCORRECT (FINAL ADDRESS) 

EXP CC = 0100 NOT RETURNED 

DATA ERROR 

INCORRECT PAD 



EXPLANATION OF ERROR 



EXP CC = 0000 NOT RETURNED 

PAD CHAR DOES NOT MATCH CONTENTS REG 

EXP CC = 010 NOT RETURNED 

DEFAULT PAD CHAR DOES NOT MATCH X'20' 

EXP CC = 1001 NOT RETURNED 

INCORRECT OFFSET RETURNED IN REG i 



E-2 
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ERROR 
NUMBER 



TT50 
TT51 
TT52 
TT53 
TT54 
TT55 
TT56 
TT57 
TT58 



ERROR 

NUMBER 



TT60 
TT61 
TT62 
TT63 
TT64 
TT65 
TT66 
TT67 
TT68 



ASSOCIATED 
INSTRUCTION 



APPENDIX E (Continued) 
ERROR MESSAGES 



EXPLANATION OF ERROR 



PMV 
PMV 
PMV 
PMV 
PMV 
PMV 
PMV 
PMV 
PMV 



ASSOCIATED 
INSTRUCTION 



UMV 

UMV 
UMV 
UMV 
UMV 
UMV 
UMV 
UMV 
UMV 



EXP CC = 0000 NOT RETURNED 

EXP CC = 0010 NOT RETURNED 

EXP CC = 0001 NOT RETURNED 

EXP CC = 0010 (FORCED) NOT RETURNED 

SIGN ERROR 

DIGIT ERROR 

LEADING ZERO FILL NO GOOD 

EXP CC = 0110 NOT RETURNED 

EXP CC = 1010 NOT RETURNED 



EXPLANATION OF ERROR 



EXP CC = 0000 NOT RETURNED 

EXP CC = 010 NOT RETURNED 

EXP CC = 0001 NOT RETURNED 

EXP CC = 0010 (FORCED) NOT RETURNED 

SIGN ERROR 

DIGIT ERROR 

LEADING ZERO (FILL CHAR ^ X'30') NO GOOD 

EXP CC = 0110 NOT RETURNED 

EXP CC = 1010 NOT RETURNED 
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APPENDIX E (Continued) 
ERROR MESSAGES 



ERROR 


ASSOCIATED 


NUMBER 


INSTRUCTION 


TT70 


MVTU 


TT71 


MVTU 


TT72 


MVTU 


TT73 


MVTU 


TT74 


MVTU 


TT75 


MVTU 


TT7 6 


MVTU 


TT77 


MVTU 


TT78 


MVTU 



EXPLANATION OF ERROR 



EXP CC = 0000 NOT RETURNED 

CONTENTS REG 1 INCORRECT (FINAL ADDRESS) 

EXP CC = 0100 NOT RETURNED 

EXP CC = 1000 NOT RETURNED 

EXP CC = 0000 NOT RETURNED - W/ TRANSLATION 

CONTENTS REG 1 INCORRECT (FINAL ADDRESS) 
- W/ TRANSLATION 

EXP CC = 0100 NOT RETURNED - W/ TRANSLATION 

EXP CC = 1000 NOT RETURNED - W/ TRANSLATION 

DATA ERROR - W/ TRANSLATION OR W/0 TRANSLATION 



E-4 
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ERROR 


ASSOCIATED 


NUMBER 


INSTRUCTION 


TTOO 


STBP 


'i'T81 


STBP 


T'r8 2 


STBP 


TT8 3 


UMV 


TT8 4 


UMV 


TT8 5 


UMV 


TT8 6 


MOVE 


TT87 


MOVE 


TTB8 


MOVE 


TT8 9 


CPAN 


'J'TBA 


CPAN . 


TTSB 


CPAN 


TT8C 


MVTU 


TT8D 


MVTU 


TT8E 


MVTU 


TT8F 


PMV 


TT90 


PMV 


TT91 


PMV 


TT92 


LPB 


TT93 


LPB 


TT9 4 


LPB 



APPENDIX E (Continued) 
ERROR MESSAGES 



EXPLANATION OF ERROR 



IIP FLAG :^ 0, NO PIC INT 

PIC INT BUT IIP BIT NOT SET 

IIP BIT NOT RESET IN CURRENT PSW 

IIP FLAG -= 0, NO PIC INT 

PIC INT BUT IIP BIT NOT SET 

IIP BIT NOT RESET IN CURRENT PSW 

IIP FLAG = 0, NO PIC INT 

PIC INT BUT IIP BIT NOT SET 

IIP BIT NOT RESET IN CURRENT PSW 

IIP FLAG = 0, NO PIC INT 

PIC INT BUT IIP BIT NOT SET 

IIP BIT NOT RESET IN CURRENT PSW 

IIP FLAG = 0, NO PIC INT 

PIC INT BUT IIP BIT NOT SET 

IIP BIT NOT RESET IN CURRENT PSW 

IIP FLAG = 0, NO PIC INT 

PIC INT BUT IIP BIT NOT SET 

IIP BIT NOT RESET IN CURRENT PSW 

IIP FLAG = 0, NO PIC INT 

PIC INT BUT IIP BIT NOT SET 

IIP BIT NOT RESET IN CURRENT PSW 
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APPENDIX F 
RELATED DOCUMENTS 



Test Program Listing 06-238M91A13 

Model 3220 Processor User's Manual 25-683 
Model 3240 Processor User's Manual 29-685 
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0000 


4500 


0000 


4508 


0000 


0000 


0000 


0000 


0000 


0000 


oooo 


0000 


0000 


0000 


0000 


0001 


0000 


0000 


0000 


0000 


0000 


0001 


0000 


0002 


0000 


0003 


0000 


OOOK 


0000 


0005 


0000 


0006 


0000 


0007 


0000 


0008 


0000 


0009 


0000 


OOOA 


0000 


OOOB 


0000 


oooc 


0000 


ODOD 



1 

2 
3 
H 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3S 
39 
40 
41 
42 
43 
44 
45 
46 
47 
46 
49 
50 
51 
52 
53 



**CML32 
TSTCOK 



CO 



PROG SERIES 3200 COSKESCIAL ISSTEJJCTION SET TEST 06-238 POO 

CROSS 

WIDTH 120 

N0RX3 

HOSQZ 



COPYRIGHT 



PERKIH-ELHES 



HAY 1979 



CONDITIONAL ASSEHBLY PAPAMETERS TO FOLLOW 

IN ALL CASES, EQUALS DELETE 
1 EQUALS ISCLUDF 

EXCEPT FOR $TI«EE, EQUALS DELETED 

1 EQUALS INCLUDE SOFTWARE 

2 EQUALS IRCLODS HARDWARE 

3 EQUALS INCLUDE BOTH 
TIHER LABEL IS "TIMER" FOE SOFTWARE AND 
KABDWAEE, EXCEPT WHEN BOTH ARE INCLUDED. 
THEN LABELS ARE "STIHEB" AND "HTIHEE" 
RESPECTIVELY. 

LABEL "CLOCK" MUST BE EQUAL TO THE LFC ADDRESS. 



PSWSAYE EQU PSHSAVEA+X ' 100' SX' FFOO ' 

RSAVS EQU SSAVEA+X'1OO'eX'FF00'+X'O3' 

$H53IN EQU 

$DECTA3 EQU 

SDSCHEX EQU 

SDECASC EQU 

SKBINT EQU 

$CL0CK EQU 1 

SDISPLRY EQU 

RO EQU 

R1 ECU 1 

R2 EQU 2 

R3 EQU 3 

R4 EQU 4 

R5 EQU 5 

E6 EQU 6 

R7 EQU 7 

H8 EQU 8 

B9 EQU 9 

E10 EQU 10 

E11 EQU 11 

E12 EQU 12 

E13 EQU 13 



C^LOOOIO 
C>!L00020 
CSL00030 
C5L00040 
CML00050 
CFL00060 
CHL00070 
C«L00080 
C!'L00090 
CHL00100 
C»<L00110 
CWL00120 
CLOOISO 
CML00140 
CML00150 
CKL00160 
CWL00170 
CWL00180 
C''L00190 
C''L00200 
C1L00210 
CML00220 
^"100230 
CHL00240 
CWL00250 
CKL00260 
CWL00270 
Cf{L00280 
CKL00290 
C?fL00300 
CWL00310 
C*!L00320 
CHL00330 
CWL00340 
CrLOOSSO 
CFL00360 
CWL00370 
CML00380 
CWL00390 
C'{L00400 
C»'L00410 
C«L0C420 
C»TL00430 
CWL00440 
C'»L004R0 
CtL00460 
CWL00470 
C"L0048Q 
CML00490 
^•100500 
CfLOOBIO 
CML00520 
CHL00530 
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0000 OOOE 

0000 OOOE 

0000 OOOF 

0000 OOOF 



OOOOOOI 






000080 


2421 




000082 


2303 




OOOOBU 


4500 




000086 


4508 




000088 


C810 


OAOO 


00008C 


CS30 


42AE 


000090 


4030 


0022 


000091* 


2731 




000096 


C860 


OOFF 


00009A 


D340 


0078 


00009E 


D340 


0079 


000OA2 


9D45 




OOOOAU 


2091 




O000A6 


9P45 




000CA8 


0855 




OOOOAA 


2234 




OOOOAC 


D251 


0000 


OOOOBO 


D351 


0000 


0OOOB4 


0765 




0000B6 


9481 




0000B8 


9828 




OOOOBA 


9D45 




OOOOBC 


2091 




OOOOBE 


9345 




OOOOCO 


Clio 


OOAC 


0000C4 


9486 




0OOOC6 


9828 




0000C8 


2478 




OOOOCA 


117C 




OOOCCC 


9557 




OOOOCE 


2203 





54 


E14 


EQU 


14 


55 


RET 


EQU 


14 


56 


R15 


EQD 


15 


57 


LINK 


EQU 


15 


58 


* 






59 


* B0OTLOADE8 


WITH CHKSUM 


60 


* 






61 




NOSQZ 




62 




ORG 


X'80' 


63 




LIS 


82,1 


54 




BS 


BOOT 


65 




DC 


Z(PSHSAVE) 


66 




DC 


Z(ESAVE) 


67 


BOOT 


LHI 


E1,0RIGIN1 


63 




LHI 


S3,L«IZB+1 


69 




STH 


R3,X'22* 


70 




SIS 


R3,1 


71 


HN 


LHI 


S6,X'00FF' 


72 




LB 


R4,X'7e' 


73 




DC 


R4,X'79' 


74 


LEADER 


SSS 


E4,R5 


75 




BTBS 


9,1 


76 




RDR 


R4,R5 


77 




LDAR 


E5,R5 


78 




BZS 


LEADER 


79 


LOAD 


STE 


R5,0(H1) 


SO 




LB 


R5,0CR1) 


81 




XAR 


86, R5 


82 




EX3R 


R 8 , R 1 


83 




WHR 


82, R8 


84 




SSfi 


E4,R5 


85 




BTBS 


9,1 


86 




RDS 


R4,R5 


87 




BXLE 


R1,L0AD 


88 




EXBB 


88,85 


89 




HHH 


E2,R8 


90 


LDifT 


LIS 


E7,8 


91 




SLLS 


S7,12 


92 




EPSR 


85,87 


93 




BS 


LDKT 



CURRENT FSH SAVE POINTERC 32-BIT V./C) 

REGISTER SAVE POI?(TER( 32-BIT H/C) 

R1 = AD8( FIRST BYTE OF TEST PROG ) 

R3 = ADR( LAST SOH-ZERO BYTE ) 

REGISTER SAVE P0INTER( 16-BIT H/C) 

R6 = CHKSUH BYTE = X'MH' 
INPUT DEV ADR 



DUrBSY 

IGNORE LEADS'? 

STORE 1ST SOS-ZERO £ SUBSEQUENT BYTE 

RELOAD DATA BYTE TO 

GENERATE CHKSUK 

DISPLAY MEMORY ADDRESS 

DU,BSY 

LOAD TILL LAST BYTE 

FINAL CHKSUM 

R7 = X'8000' 
HALT PROCESSOR. 



C«L0Q540 
CfLOOBSO 
CWL00560 
C?!L00570 
CLOOBSO 
CHL00590 
C''L00600 
C*L00610 
CWL00620 
C'?L00630 
C''L00640 
CWL00650 
CML00S60 
CML00670 
C1L006S0 
CWL00690 
CfL00700 
C'^L00710 
C1L00720 
C''L00730 
C»!L007ao 
C»'L00750 
CWL0076C 
C"'L00770 
CWL00780 
CHL00790 
CKL00800 
CWL00310 
C^L00820 
CWL00830 
C1L0084C 
CWL00850 
CT^LOOSeO 
CfL00870 
CHL00880 
CyLOOSQO 
CWL00900 
C1L00910 
CHL00920 
CnL00930 



S5RI15S 3200 CQKKEECIAI, INST.RUCTION SET TEST 06-238 ROO PAGE 3 09:37:08 06/OS/31 

EXEC - STPE R04 (W/CCNDITIOKAL ASSEMBLY) 



GGOODO 
OOOAOO' 
OOOAOO 



000AO4 
00QAO8 
OOOSOC 



4300 0A60 



!»300 0A98 
4300 0A98 
4300 0A98 



000A10 


0101 


000A12 


0010 


O00A14 


0011 


C00A16 


0002 


0OOA18 


0002 


000A1A 


0062 


C0OA1C 


0062 


000A1E 


0010 


OOOA20 


0011 


O0OA22 


OOCO 


0C0A24 


ooco 


O0OA26 


0000 


000A28 


0000 



0OOA2A 


0000 




000A2C 


0000 




000A2E 


0000 






0000 


0A2F 


OOOA30 


0000 






0000 


0A31 


000R32 


0000 




0OOA34 


A1A3 




000A36 


EE61 




000A38 


9498 




000A3A 


005i> 




00OA3C 


0080 




000A3E 


0000 





95 
96 
97 
98 
39 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
135 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 



0EIGIS1 

0FIGIN2 
0EIGI>i3 
CBIGIN4 

OfiIGIIJ2 



SQiJEZ 
ORG 
B 
IFZ 



ELSE 

B 

B 

B 

ENDC 



X'AOO' 

STABTA 

ADC-2 

STAFTA 

STARTS 

STAST4 

START3 

STAET3 
STARTS 



START HEPE FOE 32-BIT PROCESSOR 

START HERE FOR 16-BIT PROCESSOR 
SPECIAL 32-BIT PROCESSOR START 
SPECIAL 16-3IT PROCSSSOH START 

SPECIAL STAET(S) - 32 BIT PROCESSOR 



TEST CONSTANTS 



10 

PASLADS 

CLIFADE 
LPADH 
C300ADS 
?1ICR0BUS 



*I0 



DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DCX 

DCX 

0101 
0202 
XX03 
0404 
0505 



X'0101* 

X'0010' 

X'0011* 

X'0002' 

X*0002' 

X'0062' 

X'0062" 

X'0010' 

X'0011' 

X'OOCO* 

X'OOCO' 







I/O DEVICE(S) IDENTIFIER 

PALSA/PALH READ ADDRESS 

PASLA/PAia WRITE ADDRES#S 

CURSEHT LOOP INTERFACE READ ADDRESS 

COaSENT LOOP INTERFACE WRITE ADDRESS 

CUtlSY FOR LINE PRINTER 

WRITE ADDRESS 

CAEOUSEI/PASLA READ ADDRESS 

CAROUSEL/PASLA WRITE ADDRESS 

t«ICEOBOS READ ADDRESS 

BICECE'JS WRITE ADDRESS 

PROVISION FOR SPECIAL DEVICE (READ) 

WRITE ADDRESS 



FOR CRT OH PASLA 

FOP TELETYPE, CAROUSEL 15/30 

FOR LINE PRINTER 

FOE CAROUSEL 300 

FOE MICROBUS 



ETPE 10 COBHANDS 



COHEADR 
CONWADR 

* 

CONRD 

CONWHT 

C0H2ND 

CONENRD 

COHCHD 

CRTRD 

CRT2SD 

CLIFRD 

CLIF2ND 

LPHRT 



DCX 

DCX 

DCX 
EQU 
DCX 
EQU 
DCX 
DCX 
DCX 
DCX 
DCX 
DCX 
DCX 









CONRD+1 



C0S2ND+1 



A1A3 

EE61 

9498 

0054 

0080 





CONSOLE DEVICE READ ADDRESS 
CONSOLE DEVICE WRITE ADDRESS 

CONSOLE READ/WRITE COSSANDS 



DOHMY HW AS POINTER 

FOR CRT 

♦ CURRENT LOOP INTERFACE 

* LINE PRINTER 
DUHMY F02 LP 



CyL00950 

c'Loogeo 

CML00970 
CYL00980 
CHL00990 
C^LOIOOO 
CHL01010 
C*L01020 
CML01030 
^101040 
CML01050 

c^Loioeo 

CKL01070 
C^LOIOSO 
CHL01090 
CML01100 
CHL01110 
CML01120 
CML01130 
C>fL01140 
CML01150 
CHL01160 
C''L01170 
C!?L0118n 
C>!L01190 
CWL01200 
CifL01210 
C''L01220 
C»!L01230 
C'?L01240 
C"L01250 
CWL01260 
C!fL01270 
CWL01280 
C»'L01290 
CLOISOO 
CLOISIO 
CfL01320 
C»L01330 
C'?L01340 
CML01350 
CfL01360 
CfL01370 
CLOISSO 

c^Loisgo 

CWL01400 
CJ'L01410 
CI'L01420 
CSL01430 
CML01440 
C^L01450 
C»!L01460 
CLOIUTO 



SERIES 3200 C0H8EECIAL INSTEOCTIOS SET TEST 06-238 BOO 
EXEC - ETPE B04 (S/CONDITIONAL ASSEMBLY) 



PAGE 



H 09:37:08 06/08/81 



000A!(0 


A1A3 




000A42 


?0S0 




oooAan 


3202 




OO0A46 


0000 




000AH8 


00 




000S49 


23 




OO0A4A 


00 




000A4B 


00 




000A4C 


23 




OOOAUD 


00 




00OA4E 






OOOAaE 


oito 




000A50 


0000 




0OOA52 


70F0 




000A54 


30F0 




0O0A56 


20F0 




000A58 


0000 




000A5A 


0000 




000A5C 


0000 




OO0A5E 


0000 




000A60 


C810 


4000 


000A64 


0A11 




000ft66 


211C 




O00A68 


2410 




OO0A6A 


4010 


0030 


O00A6E 


4320 


0A54 


000A72 


4020 


0032 


000A76 


2521 




000A78 


4020 


1732 


000A7C 


2306 




0OOA7E 


2410 




OOOA80 


4010 


1732 


00OA84 


4810 


0A54 


0O0A88 


C820 


0E18 


C00A8C 


4010 


0034 


OO0A90 


4020 


0036 


000A94 


0000 




00DA96 


2200 




00CA98 


4 300 


0A60 


000A98 







0O0A9C 
OOOAAC 
000AA4 
00OAA6 
000AA8 



D310 0A10 
D320 0A11 
2436 
0513 
2182 



148 


CASED 


OCX 


A1A3 


* CAROUSEL 300 


cfiomso 


149 


CAR2ND 


DCX 


F060 




CWL01490 


150 


WREADC 


DCX 


8202 


* KICROBUS 


CLOIBOO 


151 




DCX 





DUMMY HW FOR J5ICR0BUS 


CLOISIO 


152 
153 


* 








CWL01520 

/"< ^r ▼ ^ M r" ^\ r\ 










Cf 10 1530 


154 


C0SSQ2S 


DB 





C08S0LE REQUEST TO SEND CHD 


CyL01==40 


155 


CETRQ2S 


DB 


X'23* 


FOE CRT 


CWL01550 


155 




DB 





* DUMHY BYTE FOR CLI 


CWL01S60 


157 




DB 





* DUM!!Y BYTE FOR LP 


CWL01570 


158 


CASRQ2S 


DB 


X'23' 


* CAROUSEL 300 


C'fL01580 


159 




DB 





* DUHMY BYTE FOR MICROBUS 


C«L01590 


160 




DB 


* 


(ALIGN OH HW BOUNDRY) 


CLOISOO 


161 


TIME 


DC 


X'140' 


CONSTANT FOR 1 «S DELAYCX' C8 ' -H0D70 ) 


C'LOieiO 


162 




DCX 





RESERVED 


C?'L01620 


163 


PSM 


DCX 


70F0 


PSW USED IN PROGRAM 


C^LOIfiSO 


164 


PSW2 


DCX 


30F0 


PSW USED IK EXEC 


CLOifiao 


165 


PSif3 


DCX 


20F0 


«AIT/»!KF PSW 


CWL01650 


166 




DCX 





RESERVED 


^101660 


157 




DCX 





RESERVED 


C«L01670 


168 




DCX 





RESERVED 


CML016R0 


169 
170 




DCX 





RESERVED 


CWI01690 








— 


C''L01700 


171 


* 








CLOI-'IO 


172 


STASTA 


LHI 


R1,X'4000' 


LOAD TEST VALUE 


CfL01720 


173 




AAR 


BI.RI 


DOUBLE 


CML01730 


174 




BBS 


START2 


16 BIT fACHIRE 


C'fL01740 


175 


STABT1 


LIS 


E1,0 




C^L01''50 


176 




STH 


R1,X'30' 


DISABLE INT AT PROCESSOR LEVEL 


CML01760 


177 




LH 


R2,PSW2 




CWL01770 


173 




STH 


R2,X*32' 


SELECT REG SFT 15 


C^L01780 


179 




LCS 


R2,1 




CML01790 


180 




STH 


R2,M0D32 


SET MODEL 32 PROCESSOR FLAG 


CTLOISOO 


181 




B 


ST 




CLOISIO 


182 


START2 


LIS 


R1,0 




C''L01820 


183 




STH 


S1,MCD32 


RESET MOD 32 PROCESSOR FLAG 


CLOISSO 


184 




LH 


R1,PSW2 




CML01840 


185 


ST 


LHI 


R2, START 




CRL01S50 


186 




STH 


R1,X'34' 




C«L0186Q 


187 




STH 


P2,X'36' 


II INT NEW PSW LOC 


C"L01870 


188 




DCX 





TAKE AS ILLEGAL INSTRUCTION IN"^ 


C»^L01880 


189 




BS 


* 


HALT IF II NOT TAKEN 


C''L01S90 


190 


* 








C''I01900 


191 


STARTS 


B 


STAP.TA 


INSERT SPECIAL ROUTINE HERE 


C^L01910 


192 




IFZ 


ADC-2 




C»'L01920 


193 


START4 


3 


STASIA 


INSERT SPECIAL ROUTINE HERE 


C''L01930 


194 




EKDC 






CKL01940 


195 


* 








CHL01950 


196 


STCOH 


LB 


HI, 10 


GET I/O IDENTIFIERS 


CLOigeo 


197 




LB 


R2,I0+1 




CWL01970 


198 




LIS 


R3,6 


IDENTIFIER CAN BE 1,2,3,4,5 


C!!L0198O 


199 




CIAS 


B1,R3 




C^L01990 


200 




BLS 


TO. OKI 


BRANCH IF K3 IDENTIFIER OK 


C5L02C00 



SiSIES 3200 COMKEPCIAL INSTRUCTION SET TEST 06-233 BOO PAGE 
EISC - HTPE HOD { H/CONDITIOSAl SSSE^BIY) 



OOOAf.A 


2412 




OOOAAC 


0523 




♦OOOAAE 


2182 




OOOABC 


2422 




000AB2 


D210 


0A10 


000AB5 


D220 


0A11 


OOOABA 


D362 


0A48 


OOOABE 


4060 


1750 


000AC2 


0856 




*OOOACU 


2336 




000AC6 


9122 




0OOAC8 


4802 


0»10 


OOOACC 


DS02 


0A32 


OOOADO 


41F0 


1492 


000AD4 


9310 




000AD6 


9112 




00OAD8 


2712 




OOOADA 


4831 


OMO 


GOOADE 


4030 


0A2A 


000AE2 


4331 


0M2 


000AE6 


4030 


0A2C 


OOOAEA 


4821 


0R32 


OOQAEE 


4020 


0A2E 


000AF2 


4821 


0A34 


000AF6 


4020 


0A30 


OOOAFA 


9310 




OOOAFC 


D341 


0S48 


OOOBOO 


D240 


0A4 8 


OOOBOl* 


4040 


174E 


D00B08 


0844 




OOOBOA 


2333 




OOOBOC 


9422 




OOOBOE 


9E32 




00OB10 


DE30 


0A2E 


OOOBlit 


9S33 




000E16 


030E 




000B18 


41E0 


0A9C 


000B1C 


41F0 


14D4 


000B20 


2400 




00Q322 


4000 


175E 


O00B26 


4000 


1760 


000B2A 


41F0 


12AE 


000B2E 


C850 


18B0 


0OOB32 


41F0 


1222 


000B36 


43F0 


B770 


000B3A 


C5P0 


0002 


000B3E 


4330 


0F9C 


000B42 


4300 


0372 



201 


LIS 


R1,2 


202 10. OKI CLAH 


H2,R3 


203 


Bl 


I0.0K2 


204 


LIS 


R2,2 


205 I0.0K2 STB 


R1,I0 


206 


STB 


B2,I0+1 


207 


LB 


E6,C0NHQ2S(E2) 


208 


STH 


H6,PASFLG2 


203 


LDAR 


R6,E5 


210 


BZ 


IC.0K3 


211 


SLHLS 


R2,2 


212 


LH 


R0,I0{R2) 


213 


OC 


R0,CQNC!!D(E2) 


214 * 






215 I0.OK3 BAL 


LINK,SETKB 


216 


LBR 


Ri,ao 


217 


SLHLS 


SI, 2 


218 


SIS 


R1,2 


219 


LH 


53,I0(R1) 


220 


STH 


R3,C0NEADE 


221 


LH 


H3,I0+2(E1) 


222 


STH 


H3,CCNWADR 


223 


LH 


R2,C0NCKD(R1) 


224 


STH 


R2,C0NRD 


225 


LH 


B2,CONC!!0+2(R1) 


226 


STH 


R2,C0H2ND 


227 


LBR 


R1,R0 


228 


LB 


R4,C0NSQ2S(R1) 


229 


STB 


R4,C0NaQ2S 


230 


STH 


E4,PASPLG 


231 


LDAR 


E4,R4 


232 


BZS 


I0.OK4 


233 


EXBS 


R2,E2 


234 


OCR 


R3,R? 


235 10.! 


DK4 OC 


E3,C0HRD 


236 


RDR 


B3,B3 


237 


BR 


RET 


238 * 






239 START BAL 


8ET,STC0N 


240 


BAL 


LINK,LCORE 


241 


LIS 


R0,0 


242 


STH 


E0,WASDU 


243 


STH 


R0,WASDU1 


244 


BAL 


LIKK,CRLF 


245 


IHI 


R5, TITLE 


246 


BAL 


S15, PRINT 


247 


LH 


E15,DUSAVE 


248 


CLHI 


H15,2 


249 


BE 


KEEP10 


250 


B 


OPTIN 


251 * 






252 **FOHCE PRIST 




253 * 







5 09:37:08 06/03/31 

OTHERWISE FORCE IT TO BE TTY 
SAKE TEST FOR LIST DEVICE 
REESTABLISH VALUES 

SET PASLA FLAG (LIST DEVICE) 
SKIP IF NOT PASLA 

ISSUE 2ND COKMAHD (TO LIST DEVICE) 

ESTABLISH KEYBOARD DEVICE (£ lOSAVE) 
(R1) = 1,2,4,5 ; (SO = KBIDENT) 
(R1)=4,8,16,20 

SET UP CONSOLE DEVICE READ ADDRESS 

SET ITP CONSOLE WRITE ADDRESS 

SET UP R/W COMMANDS 

2ND CMD; ENABLE READ CMD 



CONSOLE REQUEST TO SEND 
SET PASLA FLAG (CONSOLE) 

SKIP 2ND OC IF NOT PASLA DEVICE 

ISSUE 2ND COMMAND (TO CONSOLE) 

PUT CONSOLE IN READ MODE 

READ A DUUMY CHARACTER (SET BUSY) 

RETURN 

SETUP CONSOLE 
SET UP LOW CORE 

RESET 'DEVICE UNAVAILABLE ' FLAGS 



PRINT TEST PROGRAM TITLE 

LOAD HOKSG VALUE 

DU?? 



CML02010 
C''L02020 
C»L0?030 
C!«L02040 
CML02050 
CML02060 
CMLC2070 
C''L02080 
CXL02090 
CML02100 
CMI02110 
CKL02120 
CMI02130 
CML0214n 
CXL02150 
CML02160 
C1L02170 
CWL02180 
CML02190 
CKL02200 
CML02210 
C"L02220 
C'*L02230 
CML02240 
CML02250 
CFL02260 
CML02270 
CML02280 
CML02290 
C*L02300 
CML02310 
C'»L02320 
C'«L02330 
CML02340 
C!<L02350 
CML02360 
CML02370 
C'!L023eO 
C''10239O 
CML02400 
C''L02410 
C''L02tt20 
C''L02430 
C''L02440 
C''L02450 
CML02460 
CnL02470 
C*L02480 
CML02490 
CML02500 
CML02510 
C»(L02520 
CKL02530 
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EXEC - ETPE B04 ( V/CCNDITIOSAL ASSEHBLY) 
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O0OB46 
OOOEUA 
OOOEltE 
00OB50 
0006514 
000E56 
O0OB5A 



000B5C 
O0OB5E 
000B62 
0Q0B66 
000B6A 
00OB6E 
0OOB72 
000B76 
00OB7A 
0OOB7E 
000B82 
000384 
000B86 
0OOB8C 
000P90 
0OOB92 
000B96 
000E9A 
000B9E 
O0OBA2 
000BA6 
OOOBAA 
OOOBAC 
OOOBBO 
OOOEBa 
000BB6 
OOOBBA 

*OOOBBE 
OOOBCO 
O00BC4 
000BC3 
OOOBCC 
OOOBCE 
O0OBD2 
OOOBDii 

*O0OBD6 
OO0BD8 
OOOBCC 
OOOBDE 
000BE2 
000BE6 
OOOEEA 
OOOBEE 



48S0 B760 =0042AS 

lOEO B75E =O0U2AC 

2ltES 

40S0 1758 

24E0 

aOEO B750 =0042AA 

030F 



2UF0 
UOFO 
41F0 
C850 
I41F0 

m?o 

U1F0 
41F0 
UIFO 
U820 
9512 
41F0 
D340 
41F0 
2541 
41F0 
C3C0 
C800 
4000 
4000 
4000 
2410 
41F0 
C540 
21 S3 
C340 
C540 
2135 
41F0 
4300 
C540 
2334 
C540 
213C 
2711 
2314 
41F0 
030C 
C8 00 
D201 
4300 
C540 
4 3 30 



1754 
OB46 
181C 
1222 
0C08 
0B46 
12AE 
OCOS 
0A54 

1492 
181A 
12DE 

12DE 

139E 

2020 

B70C =0042AE 

B70A =004260 

B708 =0042B2 

136C 
0060 

0020 
0023 

OCOS 
0372 
005F 

0008 



OCOS 

0020 

B6C8 =00a2AE 

OEAC 

OOOD 

0C12 



254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
293 
299 
300 
301 
302 
303 
304 
305 
306 



FOaPRT 



LH 

STH 

LIS 

STH 

LIS 

STH 

BE 



ai4,DUSAVE 

R14,DUSAyE1 

R14,R14 

ai4,ISITSER 

R1U,0 

R14,DUSAyE 

LINK 



KEYBOARD INPUT ROnTISE 



0PTIN2 

OPTIS 
0PTIN1 



HDCHR 



RDCHARO 



aDCHR2 



RDCHAE1 



SDCHR3 



EDCHB1 



LIS 

STH 

BAL 

LHI 

BAI 

BAL 

BAL 

BAL 

BAL 

LH 

SPSR 

BAL 

LB 

BAL 

LCS 

BAL 

LHI 

LHI 

STH 

STH 

STH 

LIS 

BAL 

CLHI 

BLS 

SHI 

CLHI 

BNE 

BAL 

3 

CLHI 

BES 

CLHI 

BNES 

SIS 

BNH 

BAL 

BE 

LHI 

STE 

B 

CLHI 



LIKK,0 

LINK.BRKFLG 

LINK.FORPET 

R5,BRKSSG 

LINK, PRINT 

LINK,HESPRT 

LINKrFOEPET 

LINK,CRLF 

LINK,RES?ET 

R2,PSW2 

R1,R2 

LINK,SETKB 

B4,A»SG 

LINK,OUTCHE 

R4,1 

LINK,OUTCHR 

ai2,QUESTN 

50,X'2020' 

E0,OPTBUF 

S0,0PTBUF+2 

R0,OPTBUF+4 

R1,0 

E15,GETCKE 

B4,X'60' 

EDCHARO 

E4,X'20' 

H4,X'23' 

EDCHR2 

LINK,EESPST 

OPTIN 

R4,X'5F' 

RDCHAE1 

E4,X'0S' 

RDCHR1 

P1,1 

EDCHF3 

LISK,RESPET 

512 

RO,X'20' 

a0,0PTBUF(S1) 

RDCHS 

E4,X'0D' 

LOOKUP 



LOAD VALUE 
SAVE 

FOECE PRINT 

FORCE PRIST 
EETUEN 



CLEAR FLAG 
FORCE PRINT 



RESTORE 
FORCE PRINT 

RESTORE 

NO INT. REG SET 15 
ESTABLISH CONSOLE 
OUTPUT AN * TO INDICATE 
COMMAND MODE ESTABLISHED 
X'FF' 

SET UP S12 FOR ERR ROUTINE 
BLANK OUT COMMAND BUFFER 
WHICH SILL CONTAIN OPTION 
NAME 

CLEAR OPTBOF INDEX 
GET A CHAR IN R4 
UPPER CASE ALPHA ? 
BRANCH IF NO. 
CONVERT TO LOiiES CA'^E 
IS IT # ? 
NO 
PESTOPE 

LEFT ARROW, UNDERLINE, OR DELETE?? 

BACK SPACE ? 

NO, BRANCH 

YES, DECREMENT INDEX 

RESTORE 
UNDERFLOW EXIT 



IS IT CR ? 
YES, TRY MATCH 



C'fLOi^tO 
CWL02550 
C"L02560 
CML02F70 
C!»L02580 
^102590 
^102600 
CWL02610 
CyLn2620 
CWL02630 
CML02'^4P 
C"L02fi50 
^102660 
C!«L02670 
CML02680 
^102690 
C''L02700 
CML02710 
CVL02720 
C«L02-730 
€"102740 
C'«L02750 
C«L02760 
CML02770 
CML02780 
CML0279n 
CML02800 
C>'L02810 
C''L02820 
C''L02830 
CML02840 
C''L02850 
C''L02860 
CML02870 
C*L02880 
C'<L02890 
CML02900 
rHL02910 
C'»IO?920 
C''L02930 
C1L02940 
C''L02950 
CML02960 
CML02970 
C»«L02980 
C«L02990 
CLOSCOO 
CML03010 
CKL03020 
CfL03030 
C'<L03040 
CML03050 
CML03060 
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EX£ 



ETPE 804 (W/COSCITICSAL ."iSSE?fBLY) 



000BF2 C540 0020 

*000BF6 233E 

O00BF8 C510 0006 

OOOBFC 038C 

OOOEFE 0241 B6AC =001t2AE 

000C02 2611 

OOOCOU U300 OBAC 



000C08 i*8E0 B6A0 =0042AC 
OOOCOC 40E0 B59A =0042AA 
OO0C1O 030F 



O0OC48 
000C4C 

*000C50 
O00C52 
000C55 
000C5A 

*000C5C 
000C5E 
00OC62 
000C66 
000C6A 

O0OC6C 
000C70 
000074 



41F0 0346 
C540 OOOD 
2333 

41E0 116E 
C560 0006 
2336 
2!*i)A 

U1F0 12DE 
D260 B64F 
4820 1888 
0232 

C830 1838 
C8E0 0CF6 
41F0 12AE 



=004235 



307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 



CLHI 


R4,X'20' 


SPACE?? 


3E 


LOOKUP 


TRY LOOKUP 


CLHI 


PI, 6 


7 CHARACTERS INPUT 


3NLB 


E12 


IF TES, EERO? 


STB 


E4,0PTBUF(E1) 


STORE CTERENT BYTE 


AIS 


H1,1 


PUMP BUFFER INDEX 


B 


EDCHR 


READ NEXT CHARACTER 



♦*HSSTOSE PRINT PARAHETERS 

RESPET LH R14,DUSAVE1 

3TH R14,DaSAYE 
BR LINK 









321 


* OPTION KATCH ROUTINE 








322 


* 






000C12 


41F0 


0C08 


323 


LOOKUP 


BAL 


LINK,EESPRT 


O0OC16 


C310 


1838 


324 




LHI 


El, OPT 


0OOC1A 


2430 




325 


100X1 


LIS 


E3,0 


0OOC1C 


0861 




326 




LDAR 


R6,R1 


000C1E 


4356 


0000 


327 


L00K2 


LH 


E5,0(R6) 


00OC22 


021C 




328 




8MH 


E12 


000C24 


4553 


B686 =0042AE 329 




CLH 


R5,OPTBUFCE3) 


*000C28 


2333 




330 




BE 


L00K3 


000C2A 


261C 




331 




AIS 


El, 12 


*000C2C 


2209 




332 




B 


LC0K1 


00OC2E 


2632 




333 


L00K3 


AIS 


R3,2 


000C30 


2562 




334 




AIS 


R6,2 


00OC32 


C530 


0006 


335 




CLHI 


R3,6 


*000C36 


208C 




336 
337 


* 


BL 


L00K2 


0P0C38 


C510 


188C 


338 




CLHI 


El, RUN 


0OOC3C 


4330 


0E02 


339 




BF 


EUNIT 


OOOC40 


C510 


1880 


340 




CLHI 


R1, OPTION 


000C44 


4230 


0D5C 


341 


*„ 


BNE 


L0CK4 



LOAD VALUE 

RESTORE 

RETURN 



RESTORE 

LOAD ADDRESS OF OPTION TABLE 

CLEAR BUFFER INDEX 

SET OPTION WORD INDEX 

IF ?!INUS, THEN NO MATCH = ERROR 
COMPARE TO OPTBUF HH 



TRY NEXT HW 

3 MATCHING HW FOUND ? 

EUN COMMAND ? 

OPTION CKD 1 

NO, LOOK FURTHER 



TO PROCESS INPUT COMMAND "OPTION' 



OPTEXX 



OPTHTN 



BAL 

CLHI 

BE 

BAL 

CLHI 

BNLS 

LHI 

BAL 

STB 

LH 

BNZR 



LINK,FORPST 

P4,X'0D' 

OPTEXX 

R14,0PTVAL 

R6,6 

OPTEXX 

B4,X"0A* 

LINK,OUTCHP 

E6,I0SAVE+1 

R2,0PTI0N+8 

H2 



LHI R3,TEST 
LHI H14,0PTCMD8 
BAL LINK,CRLF 



FORCE PRINT 

CR ? 

YES, BRANCH 

NO, GET OPTION DEV. PRINTOUT NUM. 

IS DEVICE NUMBER VALID ? 

NO, BRANCH 

YES, LOAD AN LF CHARACTER 

WRITE IT TO THE CONSOLE 

CHANGE THE LIST DEVICE 

CHECK FOR SPECIAL ROUTINE 

LINK TO ROUTINE 

RETURN HERE 



CML03070 
CML03080 

cnLosogo 

Ci«L03100 
C*L03110 
C»fL03120 
CVL03130 
CKL03140 
CML03150 
CML03160 
CWL03170 
C»'L03180 
^•103190 
CML03200 
CrL03?10 
C»'L03220 
CKL03230 
CML03240 
CML03250 
C''L03260 
CML03270 
CML03280 
CML03290 
CML03300 
CML03310 
CML03320 
CWL03330 
CML03340 
C^L03350 
C«^L03360 
C''L03370 
C''L03380 
C>'L03390 
C?'L03400 
C'»L03410 
C''103420 
C*L03430 
CWL03440 
CML03450 
^•103460 
CML03470 

CLO'ueo 

CML03490 
C'"L03500 
CML03510 
0*103520 
CML03530 
CML03S40 
C*L03550 
CLOBSeO 
CML03570 
CSL03580 
CML03590 



SESIES 3200 COMMERCIAL IKSTBUCTION SET TEST 06-238 BOO 
EXEC - ETPE ROt ( W/CONDITIONAL ASSEMBLY) 



PAGE 



8 09:37:08 06/08/81 



O0OC78 


2420 






360 


OPTCMD 


LIS 


R2,0 


RESET COONTES 


O0OC7A 


D342 


1838 




361 


0PTCHD1 


LB 


R4,0PT(R2) 


TO PEIHT TEST 


000C7E 


itlFO 


12DE 




362 




BAL 


LINK,OUTCHR 




000C82 


2621 






363 




AIS 


P2,1 




000C84 


C520 


0006 




364 




CLHI 


R2,6 




^O0OC88 


2087 






365 




BL 


0PTCMD1 




000C8A 


CS40 


0020 




366 




LHI 


P4,C* • 




000C8E 


41F0 


12DE 




357 




BAL 


LINK,ODTCHP 


OUTPUT 1 SPACE 


OO0C92 


2450 






368 




LIS 


E5,0 


TO PRINT SELECTED TEST NU 


O0OC94 


4050 


1730 




369 




STH 


P5, FIRST 




0OOC98 


4323 


0006 




370 




LH 


R2,6(S3) 


FIRST TEST SORD 


000C9C 


2440 






371 


0PTCHD2 


LIS 


R4,0 


START WITH TEST 


000C91; 


4040 


B614 


=0042Ee 


372 




STH 


R4,TEMP 




000CA2 


9121 






373 


0PTCHD3 


SLHLS 


R2,1 




OOOCAlt 


4380 


0CD6 




374 




BNC 


0PTCKD7 




000CA8 


4040 


360A 


=004266 


375 


0PTCHD4 


STH 


S4,TEMP 


OPTION VALUE FOUND. 


OOOCAC 


4300 


1730 




376 




LH 


BO, FIRST 


IS IT FIRST ? 


OOOCBO 


2335 






37^ 




BZ 


0PTC!(D5 




000CB2 


C840 


002C 




378 




LHI 


E4.C',' 


NO, OUTPUT COMMA 


000CE6 


41F0 


12DE 




379 




BAL 


LINKrOUTCHE 




OOOCBA 


40F0 


1730 




380 


0PTCMD5 


STH 


LINK, FIRST 




OOOCBE 


0355 






381 




LDA8 


H5,R5 


TEST VALUE FROM SECOND HW 


OOOCCO 


2335 






382 




BZ 


0PTCKD6 


NO 


0OOCC2 


C340 


0031 




383 




LHI 


R4,C'1' 


YES, OUTPUT -V 


000CC6 


41F0 


12DE 




384 




BAL 


LINK,OUTCHE 




OOOCCA 


4840 


B5E8 


=0042B6 


385 


0PTCSD6 


LH 


S4,TE}IP 


RESTORE R4 


OOOCCE 


D344 


1730 




386 




LB 


R4,HEXTAB(R4) 


CONVERT 


000CD2 


41F0 


12DE 




387 




BAL 


LINK,OUTCHF. 


OUTPUT 0-F 


000CD5 


4840 


B5DC 


=004286 


388 


0PTCHD7 


LH 


H4,TE»P 


RESTORE 


OOOCPA 


2541 






389 




AIS 


54,1 


INCREMENT TEST # 


OOOCDC 


4040 


B5D6 


=0042B6 


390 




STH 


S4,TSMP 




OOOCEO 


C540 


0010 




391 




CLHI 


S4,16 




OOOCEt 


4280 


0CA2 




392 




BL 


0PTCHD3 




000CE8 


0855 






393 


0PTCKD71 


LDAH 


R5,R5 


DONE ? 


OOOCEA 


023E 






394 




BNZE 


S14 




OOOCEC 


4323 


0008 




395 




LH 


R2,3(R3) 


SECOND TEST WORD 


OOOCFO 


2451 






396 




LIS 


R5,1 


R5 = 1 FOR SECOND TEST HW 


000CF2 


4300 


0C9C 




397 
398 
395 


*______^ 


B 


0PTCMD2 












* TO OUTPUT 


THEE OPTION SAKES E. VALUES 










400 


* 








000CF6 


41F0 


12AE 




401 


0PTCHD8 


BAL 


LINK,CRLF 




OOOCFA 


2461 






402 




LIS 


36,1 


SET LINE COUNTER 


OOOCFC 


C320 


1844 




403 




LHI 


R2,0PT+12 


R2 POINTS TO THE NA^E 


OOODOO 


2436 






40£i 


0PTCSD9 


LIS 


S3, 6 




OO0DO2 


D342 


0000 




405 


CPTCMD10 


LB 


S4,0(R2) 




O0ODO6 


41F0 


12DE 




406 




BAL 


LINK,OUTCHK 


OUTPUT OPTION NAME CHAB 


OOODOA 


2621 






40'' 




AIS 


B2,1 




OOOEOC 


2731 






4GS 




SIS 


R3,1 


6 CHARACTERS OUTPUT ? 


OOODOE 


2025 






409 




BPS 


OPTCMD10 


NO, LOOP 


000D10 


CS40 


0020 




410 




LHI 


R4,C' • 




000D14 


41F0 


12DE 




411 




BAL 


LINK,OUTCHR 


OUTPUT ONE SPACE 


O0OD13 


4352 


0000 




412 




LH 


R5,0(R2) 


R5 = OPTION VALUE 



CW103600 
CfLOSPIO 
C5L03620 
CML03630 
CML03«40 
C«L03650 
C'«L03660 
CWL03570 
CML03680 
^•103690 
C'TL03700 
C«L03710 
CWL03720 
C«L03730 
CWL03740 
CXL03750 
CVL03760 
CHL03770 
CML03780 
C''L0^790 
C"L03800 
C»fL03S10 
C»L03820 
C»'L03830 
C!'L03840 
CLOSSSO 
C''L03860 
CML03870 
Ci«L03880 
CWL03890 
C!»L03900 
C^LOigiO 
CML03920 
CWL03930 
C'<L03?40 
CLOiq^O 
C'»L03960 
C'»L03970 
C»L03930 
CWL03990 
C''L04000 
CWL04010 
C"I04020 
C'<L04030 
C'?L04040 
C^LOUOSO 
C»'I04060 
C»!Ln4070 
CML04080 
C«L04090 
C'?L04100 
C^L04110 
CML04120 
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EXE 


,L. ~ i i 


'PE R04 


000D1C 


2«0tt 




GOODIE 


IHFO 


11D2 


000D22 


D300 


0A10 


000D26 


2701 




000D28 


213D 




OO0D2A 


2661 




000D2C 


C560 


0014 


0O0D30 


2189 




0O0D32 


2460 




0OOD3H 


41F0 


136C 


000D38 


27«D 




000D3A 


4330 


0B7E 


000D3E 


2643 




000D40 


2036 




OO0D42 


41F0 


12AE 


000D46 


41F0 


13B3 


O0OD4A 


2526 




000D4C 


C520 


1880 


000D50 


4280 


ODOO 


OO0D54 


41F0 


OC08 


000D58 


4300 


0372 


000D5C 


C510 


1838 


OOOD60 


4330 


ODBO 



(W/CCKDITICSAL ASSEKBLY) 



000D64 


274D 




000D66 


033C 




000D68 


41E0 


115E 


OO0D5C 


274D 




00OD6E 


023C 




000D70 


48E1 


0008 


*0OOD74 


2332 




000D76 


01FE 




000D78 


4051 


0006 


000D7C 


4860 


1862 


000D80 


4050 


B526 


000D84 


4300 


0R72 


000D88 


C560 


0003 


0OOD8C 


038C 




0OOD8E 


030F 




000D90 


C360 


FFFE 


OO0D94 


033F 




000D96 


030C 




000D98 


C560 


0400 


000D9C 


028F 




O00D9E 


030C 





413 




LIS 


R0,4 


414 




BAL 


LINK,E5HEX 


415 




LB 


EO,IC 


416 




SIS 


R0,1 


417 




BNZ 


0PTCHD12 


418 




AIS 


R6,1 


419 




CLHI 


R6,20 


420 




31S 


0PTCMD12 


421 




LIS 


R6,0 


422 


0PTCKD11 


BAL 


LINK,GETCHE 


423 




SIS 


S4,13 


424 




3Z 


0PTIN1 


425 




AIS 


R4,3 


426 




BNZS 


0PTCMD11 


427 


CPTCHD12 


BAL 


LINK,CELF 


428 




BAL 


LINK,TSTBEK 


429 




AIS 


R2,6 


430 




CLHI 


R2,0PTEND2 


431 




BL 


0PTC11D9 


432 




BAL 


LIHK,HESPET 


433 


* _______ 


B 


OPTIS 


434 








435 


L00K4 


CLHI 


B1 ,TSST 


436 




BE 


TESTOP 


437 


* 






438 


* TO PROCESS 


COMKANDS OTHER T 


439 


* 






440 




SIS 


R4,13 


441 




BZR 


R12 


442 




BAL 


S14,0PTVAL 


443 




SIS 


R4,13 


444 




BNZR 


E12 


445 




LH 


R14,8(R1) 


446 




BZ 


LOOKS 


447 




3ALH 


R15,R14 


448 


* 






449 


L00K5 


STH 


R6,6<E1) 


450 




LH 


S6,N0HSG+6 


451 




STH 


R6,D0SAVE 


452 




B 


OPTIN 


453 


* 






454 


ZEH0SS2 


CLHI 


Re, 3 


455 




BNLS 


R12 


456 




BE 


R15 


457 


* 






458 


ZESONE 


THI 


R6,X'FFFE' 


459 




BZE 


R15 


460 




BE 


R12 


461 


* 






462 


ADR 


CLHI 


R6,X'400' 


463 




BLR 


S15 


464 




BR 


E12 


465 


* 







WRITE OPTION VALUE IN HEX (4 DIGITS) 

CONSOLE = CRT ? 

BRANCH: SO. 

INCREMENT LINE COUNTER. 

PAGE FULL ? 

NO 

INITIALIZE LINE COUNT 

CB ? 

TO ACCEPT NEXT COHBAND 

LF ? 

IF YES, PRINT NEXT PACE 

EXIT IF 'BREAK' PRESSED. 

ALL PRINTING OPTIONS DONE ? 

NO, LOOP FOR NEXT ONE 

RESTORE 

TO ACCEPT NEXT COHKAND 

•TEST' OPTION ? 



'TEST' 



•OPTION' , 



OPT FOLLOWED BY CR 7 

YES, ERROR 

GET OPTION VALUE IN 56 

TERSINATED BY CR ? 

IF NO, BRANCH 

GET OPTION CHECK ROUTINE ADDRESS 

LINK OPTION CHECK ROUTINE 

RETURN HERE 

STORE OPTION VALUE 

LOAD VALUE 

SAVE TO FLAG 

TO ACCEPT NEXT COMMAND 

MAXIXUM+1 
ERROR RETURN 
OKAY 

IGNOES ISB 

OKAY 

ERROR RETURN 

<R6) = 10 BIT DEVICE ADDRESS 
RETURN TO L00K5 



Cyi04130 
C«L04140 
C"L04150 
CHL04160 
CML04170 
C»L04180 
CML04190 
CrLQ4200 
CHL04210 
CfL04220 
^^104230 
CWL04240 
C!fL04250 
C'«L04260 
CML04270 
C'1L04280 
^104290 
CWL04300 
CKL04310 
C!!L04320 
CWL04330 
C'^L04340 
CML04350 
C5L04360 
C'!L04370 
C'!I04380 
C«L04390 
CWL04400 
CKL04410 
C«L04420 
C?L04430 
CKL04440 
C''L04450 
C«Ln4460 
CXL04470 
C!«L04480 
CTL04490 
CWL04500 
C''L04S10 
C^L04520 
0*104530 
CWL04540 
CrL04550 
CML04560 
C?IL04570 
C''L04580 
CML04590 
C''L04600 
C*L04610 
CWL04620 
C''LC4630 
C'!L04640 
C»'L04650 



SUSIES 3200 COMKEBCIAL INSTEUCTIOS SET TEST 06-238 ROO 
EXEC - KTPE R04 (W/CONDITIONAL ASSEMBLY) 



OOODAO C550 OOOF 

OOODAU 028F 

00ODA6 030C 

0OODA8 030C 



QOODAA 
OOODAC 

OOODAC 



3800 
4300 0E18 



OOODBO 


274D 




000DB2 


213B 




000DB4 


4800 


18F2 


0OODB8 


4000 


183E 


OOODBC 


4800 


18F4 


OOODCO 


4000 


1840 


0OODC4 


4300 


0372 


000DC8 


4850 


18F8 


OOODCC 


2470 




OOODCE 


2480 




OOODDO 


41S0 


116E 


000DD4 


0556 




000DD6 


028C 





466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 



LEVEL 



STOP. IT 



CLHI 
BLE 
3H 
BB 

DCX 
B 

IFZ 



P6,15 
B15 

P. 12 
E12 

8800 
STAET 

$DECHEX-1 
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(B6) = ISTEBROPT LEVEL HEX DIGIT 
BETHEN TO I00K5 



BSEAK POINT 



**T0 CHECK THAT OPTION ENTRY 


IN E6 IS IN DECIMAL DIGITS. 


**T0 CONVERT DECIHAL ENTRY IN 


R6 TO HEX VALUE AND 


**STORE 

* 


IT a 0(R5). 




DECHEX 


STM 


RO.RSAVE 






LIS 


R0,0 


ACCaBULATOB 




LIS 


E1,0 


TABLE INDEX 




LIS 


32,0 


SHIFT COUNTER 


DECLP1 


LDAE 


E3,R6 


COPY INPUT VAinS 




SEAL 


B3,0(B2) 






BZ 


DECHEX1 


TO RETURN 




NHI 


R3,15 






CLHI 


R3,10 


VALID DECIHAL DI^IT ? 




BNLR 


ai2 


IF NOT, ERROB. 




LDA 


B7,DECTAB(E1) 


1,10, .-.,10000 


DECLP2 


SIS 


F3,1 






BH 


DECLP3 






AAR 


R0,R7 


ADD IN CURRENT VALUE 




B 


DECLP2 




DECLP3 


AIS 


S2,4 


INCEESENT SHIFTER 




AIS 


PI, ADC 


INCREMENT POINTER 




B 


DECLP1 




DECHEX1 


STH 


R0,0(R5) 


STORE HEX OPTION VALUE 




LK 


R0,RSAVE 






BE 


LINK 


EETIIRN 




ENDC 






• - 









TEST OPTION PROCESS ROUTINE 



TESTOP 



TST0P1 



TST0P2 



SIS 

3NZS 

LH 

STH 

LH 

STH 

B 

LH 

LIS 

LIS 

BAL 

CLAP 

BLE 



R4,13 

TST0P1 

EO,DEFTESTS 

E0,TEST+6 

B0,DEFTESTS+2 

R0,TEST+8 

OPTIN 

R5,MAXTST 

R7,0 

R8,0 

E14,0PTVAL 

E5,R6 

E12 



'TEST' FOLLOWED BY (CR) ? 

YES, SET TEST OPTION TO 

FIRST TEST HOFD 

ALL DEFAULT TESTS IN PROGRAM 

SECOND TEST PCR? 

TO ACCEPT NEXT COHSAND 



TEST BIT ACCUMULATORS 
GST OPTION VALUE IN R6 
ERROR: INVALID TEST NUMBER 



CML04660 
C«L04670 
C''L04680 
C''L04590 
CML0470n 
^^104710 
CHL04720 
CML04730 
CML04740 
C*L04750 
C''L04-760 
C'!L04770 
CWL04780 
C''L04790 
C*L04R00 
CLOUSIO 
CML04S20 
C''L04830 
C'<LO48U0 
C'«L04850 
CrL04860 
C'^LC4870 
CML04880 
CML04890 
C»'L04900 

CJLnugio 

CML04920 
C'!L04930 
CML04940 
C'«L04q50 
CMLC4960 
C?'L04970 

c^Lougso 

C'?L04990 
CLOSOOO 
CLOSOIO 
C-L05020 
CWL05030 
C'?L05040 
C'!L05050 
CML05060 
C''L05070 

c^Losoao 
CLosogo 

C''L05100 

CMLO'=;iio 

CWL05120 
C^LOSIBO 
C''L05140 
C''L05150 
CWLn5160 
C!?L05170 
CWL05180 
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EXPE SOU (V/COSDITIONAL ftSSSMBLY) 



000DD8 
OOODDC 
OOCDDE 
000DE2 
•■OOODEli 
0O0DE6 
OOODEA 
OOODEE 
OOOIiFO 
000DF2 
000PF6 
OOODFA 
COODFE 



000E02 
000E04 
OOOE08 
OOOEOC 
000E10 
O00E12 
O00E16 
000E1A 
000E1C 
000E20 

*O0OE22 
000E24 

♦C00E26 
000E28 
000E2A 
O0OE2E 

*OO0E3O 
O0OE32 

*000E3i» 
000236 
000E38 
000E3C 
OQQEHO 
0O0E4 4 
OO0E48 
0OCE4C 



00OE5O 
OO0E52 
000E56 
OO0E5A 
000E5E 
000E62 
000E66 
000E6A 



c5eo 0010 

2385 

U1E0 11AA 
0673 
2306 

C350 0010 
4 ISO HAS 
0683 
274D 

4230 OCDO 
4070 183E 
4080 1840 
4300 0B72 



24F0 

40FO 1754 

40F0 1756 

41F0 12AE 

24F0 

40F0 175E 

40F0 1760 

240F 

4810 1840 

1011 

218B 

2701 

2213 

240F 

4810 183E 

1011 

2186 

2701 

2213 

030C 

CAOO 0010 

4000 175C 

4300 0A10 

4000 B46C =0042B4 

41F0 12AE 

41F0 18A8 



2400 

4000 1758 
4000 1762 
4000 1764 
4000 175E 
C810 3030 
4010 1796 
4010 17A0 



519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
S31 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
545 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 



TST0P3 



TST0P4 



RUNIT 



KEEP1 



KEEP2 



FOUND 1 
F0UND2 



CLHI 

BNLS 

BAL 

OAR 

B 

SHI 

3A1 

OAR 

SIS 

BNZ 

STH 

STH 

B 



B 6 , 1 6 

IST0P3 

P.14,UNA8Y 

R7,R3 

TST0P4 

86,15 

R14, UNARY 

R8,B3 

84,13 

TST0P2 

57,TEST+6 

R8,TEST+8 

OPTIN 



LIS 

STH 

STH 

BAL 

LIS 

STH 

STH 

LIS 

LH 

SRLS 

BC 

SIS 

3NH 

LIS 

LH 

SBLS 

BC 

SIS 

BNH 

BS 

AHI 

STH 

LH 

STH 

BAL 

BAL 



LINK,0 

LINK,BEKFLG 

LINK,PETFLG 

LINK,CBLF 

R15,0 

B15,HASDU 

B15,WASDU1 

R0,15 

B1,TEST+8 

B1,1 

F0UND1 

E0,1 

KEEPi 

fi0,15 

R1 ,TEST+6 

E1,1 

F0USD2 

H0,1 

KEEP2 

B12 

BO, 16 

SO,SELTST 

BO,IC 

RO,IOSAVE 

LINK,CRLF 

LINK,IKIT 



RESET TEST PAEAaETERS 



INITHET 



LIS 
STH 
STH 
STH 
STH 
LHI 
STK 
STH 



B0,0 

RCISITEEB 
BO, TOTAL 
B0,TOTESR 
EO,WASDU 
R1, coo- 
El, BTESTNO 
B1,ETESTNC 



R6 < 16 ? 

NO 

GST UNABY OPEEAND IN B3 

SET CURRENT BIT 

R6 = 0-F 

SET CUPRENT BIT 
TERHINATED BY CE ? 

STOBE VALID SELECTED TESTS 

TO ACCEPT NEXT COHKAND 



CLEAB FLAG 
CLEAR FLAG 



RESET DU FLAGS 

TO FIND HIGHEST SELECTED TFST NO. 
CHECK SECOND TEST HM 

RO = F-0 

TBY NEXT DIGIT 
INITIALIZE AGAIN 
CHECK FIRST TEST HW 



EO = F-0 



TEST » 



LOOP 

TEST NOT SELECTED 

ADJUST TEST # FOR SECOND HW 

HIGHEST SELECTED TEST NU»iBEE 

RESTORE USEE'S I/O CHOICE 

LINK USEE INITIALIZATION ROUTINE 



RETUHN HERE FROM USER'S INIT ROUTINE 
RESET ERROR FLAG 
RESET TOTAL 
RESET TOTEER 
RESET HASDU 

RESET THESE FLAGS TO COO' 



CML05190 
CnL05200 
C!'L0^210 
C'?L05220 
CML05230 
CML05240 
C1?L05250 
CML05260 
CML05270 
CML05280 
C>fL05290 
CML05300 
OIL05310 
C!'L05320 
CLOSSSO 
C«fL05340 
C^L05350 
C?fL05360 
C»'L05370 
CLOSSSO 
C?fL05390 
C»?L0S400 
CWL05410 
C«L05420 
C>IL05430 
CML05440 
C??L05450 
CKL05460 
CML05470 
CWL05480 
C'<L05490 
CfL05500 
CWL05510 
C''L05520 
CWL05530 
C''L05540 
C''L05550 
C'?L05560 
CWL05570 
CLOBBSO 
C«L05590 
CfL05600 
C''L05610 
C'«L05fi20 
CyL05630 
CKL05640 
CLOSeSO 
C!'L05660 
CfL05670 
CML05680 

cLosego 

C''L05700 
C1L05710 
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00OE6E 
000E72 



000E76 
0OOE78 
000E7C 



4010 17A2 
!HFO 14DK 



21*00 

4000 1766 
4000 176A 



000F80 


4820 


176 A 


000E84 


2408 




000E86 


910C 




000E88 


CC02 


0000 


000E8C 


C520 


0010 


♦000E90 


2185 




0OOF92 


4400 


1340 


*O0OF96 


2137 




*000F98 


2304 




000E9A 


4400 


183S 


*00OE9E 


2133 




OOOEAO 


2621 




*000EA2 


220F 




000EA4 


4020 


1766 


000EA8 


Od12 




OOOEAA 


2521 




OOOEAC 


4020 


175A 


OOOEBO 


2402 




000EB2 


C820 


1796 


00OEB6 


41F0 


UFA 


OOOEBA 


4820 


1796 


0OOE3E 


4020 


17A0 


000EC2 


41F0 


13B8 


000EC6 


C850 


1790 


OOOECA 


41F0 


1222 


OOCECE 


2400 




OOOEDO 


4000 


175A 


000ED4 


4000 


1768 


000ED8 


4810 


0A52 


OOOEDC 


9501 




OOOEDE 


4820 


1766 


O00EE2 


1122 




000EE4 


5812 


1PFC 


O0OFE3 


0301 





OOOEEA 
OOOEEE 
OOOEFO 
0C0FF4 



4310 0A54 
9501 

4300 1768 
2601 



572 
573 
574 
575 
576 
577 
578 
579 
560 
581 
582 
583 
584 
585 
586 
587 
538 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
6 03 
504 
605 
606 
607 
608 
609 
610 
511 
612 
513 
^514 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 



3TH 
BAL 



BI.EBKNO 
LIKK,LCORE 



START SELECTIOK FROS TEST 



XEEP3 



TO FIND THE NEXT SELECTED TEST. 



KEEP4 
KEEP41 



KEEP42 



KEEP43 



KEEP5 



KEEPS 



LH 

LIS 

SLHLS 

SEHL 

CLHI 

BL 

NH 

BNZ 

B 

NH 

BNZ 

AIS 

B 

STH 

LDAR 

AIS 

STH 

LIS 

LHI 

BAL 

LH 

STH 

3fiL 

LHI 

BAL 

LIS 

STH 

STH 

LH 

EPSB 

LH 

3LLS 

IDA 

BE 



R2,NEXTST 

ao,8 

30,12 

R0,0(R2) 

R2,X' 10' 

KEEP42 

HC,TEST+8 

KEFP5 

KEEP43 

E0,TSST+6 

KEEP5 

E2,1 

KEEP41 

R2,BTESTN0 

R1,R2 

R2,1 

R2,NEXTST 

P,0,2 

B2,«TESTN0 

LINK,HEXASC 

R2,8TESTS0 

R2,ETESTN0 

LINK,TSTBEK 

B5,TST«SG 

LINK, PRINT 

R0,0 

R0,N0ERH 

RO, COUNT 

R1,PSW 

R0,R1 

B2,BTESTN0 

R2,LADC 

E1,TESTSCR2) 

R1 



^ TEST MODULE END ROUTINE 

k 

rSTEND LH R1,PSW2 

SPSE R0,E1 

LH BO, COUNT 

AIS R0,1 



SET UP LOW CORE 



LIS 


S0,0 




STH 


R0,BTESTNO 


RESE' 


STH 


E0,SEXTST 


BESE 



BINARY TEST NUKBEB 
NEXT TEST # 



GET NEXT TES"^ P 

RO = X'8000' 

RO = NEXT TEST 3IT 

NEXT TEST < 16 

LOOK AT TEST HW 2 



LOOK AT TEST HV 1 



LOOP FOR NEXT TEST # 

CURRENT TEST # 

PI = TEST # IN BINARY 



SET DIGITS TO PRINT = 2 

S2 = A(MTESTNO) 

STORE TEST # IN ASCII 3 HTES'^NO 

STORE TEST # IN ASCII 5) ETESTSO 
TEST BREAK 

PRINT "TEST NN* 

RESET ERROR FLAG 
RESET COUNT 
ENABLE INTERRUPTS 

R2 = TEST # 



jO to TEST MODULE 



DISABLE INT S PROCESSOR LEVEL 
INCREMENT COUNT 



CML05720 
C!'L05730 
C''L0574C 
CWL05750 
CTTL05760 
C"'L05770 
C?'L05780 
CWL05790 
CVL05800 
CNL05810 
C7*L05820 
CHL05830 
C'«L05S40 
C'«L05850 
CJ'LOSSeO 
CKL05S70 
CWL058S0 
CKL05890 
C'1L05900 
CWL05910 
CWL05920 
C''L0S930 
CWL05940 
CnL05950 

cfLOsgeo 

C''L05970 
C''L05980 
C>?L05990 
CLO'^OOO 
C'fL06010 
CI'L06020 
C«L06030 
C'!I06040 

CLoeoso 
cLoeoeo 

C:»L06070 
C?fL06080 
CWL06090 
CML0S100 
CML06110 
CML06120 
CLOfilSO 
C!»L06140 
CfL06150 

c^LoaiPO 

^106170 
CML06180 

CLOfigo 

C>'L06200 
CWL06210 
CWL06220 
C»fL0623C 
C'ILO'^240 



SSBISS 3200 COIJMEFCIAL ISSTBUCTIOS SET TEST 05-238 HOO 
EXEC - ETPE BOi* ( W/CCNDITIOHAL ASSEHBLI) 



PAGE 13 09:37:08 06/08/81 



000EF6 


itOOO 


1768 


OOOEFA 


4500 


184A 


OOOEFE 


2385 




OOOFOO 


41F0 


13B8 


OOOFOlt 


4300 


0ED8 


000F08 


4300 


175» 


OOOFOC 


2135 




OOOFOE 


C850 


17B6 


000F12 


41F0 


1222 


OO0F16 


4810 


1765 


000F1A 


4510 


175C 


000F1E 


4280 


0E80 



000F22 
000F26 
O0OF2A 
00OF2A 



000F62 
O0OF66 
0OOF6A 
000F6C 
000F70 
O0OF7O 



000F74 

0OOF78 

*000F7C 

000F7E 



4200 0F22 
4310 0A54 
9501 



000F2C 


41f0 


146C 


000F30 


4230 


0F62 


000F34 


4810 


1760 


000F38 


4230 


0F96 


0OOF3C 


41F0 


13B8 


0OOF40 


4810 


1856 


OO0F44 


4230 


0F66 


000F4S 


41F0 


1492 


000F4C 


C850 


1S0A 


000F50 


4050 


1768 


000F54 


41F0 


1222 


000F58 


24F0 




000F5A 


40F0 


1758 


O0OF5E 


4300 


0372 



4010 175E 
4810 1762 
2611 

4010 1762 
4200 0000 



4310 1762 
C510 7rFF 
2389 
4300 1766 



625 






STH 


RCCOOKT 


626 






CLH 


R0,LOOP+6 


627 






BNLS 


KEEP7 


628 






BAL 


LINK,TSTBRK 


529 






B 


KEEP5 


630 


KEEP7 


LH 


EO,N0ESS 


631 






BNZ 


KEEP71 


632 






LHI 


R5,N0ERMSG 


533 






BAL 


LINK, PRINT 


634 


KEEP71 


LH 


R1,BTESTN0 


635 






CIH 


B1,SELTST 


636 






BL 


KEFP4 


637 


* 








638 


* 


ALL 


THE SELECTED TESTS HAVE NOW 


639 


* 








540 


ABORT 


NOP 


* 


541 






LH 


R1,PSW2 


S42 






EPSR 


R0,R1 


643 






IFZ 


$DISPLAY-1 


644 






BAL 


LINK, DISPLAY 


645 






DC 


Z<TOTAL),Z(TOTEHP) 


646 






EN DC 




647 






BAL 


LINK,TSTDU 


648 






BNZ 


KEEP9 


649 






LH 


S1,HASDai 


550 






BNZ 


KEEP92 


651 






BAL 


LINK,TST3RK 


652 






LH 


F1,C0NTIN+6 


653 






BNZ 


AB0ST2 


654 






BAL 


LINK,SETKB 


655 






LHI 


B5,E0TMSG 


656 






STH 


R5,ISITERR 


657 






BAL 


LINK, PRINT 


558 






LIS 


R1?,0 


559 






STH 


R15,ISITEHR 


660 






B 


GPTIN 


661 


* 








662 
663 


*_ 








* 


SOUT 


'INE INCREMENTS, DISPLAYS E CH 


664 


* 








665 


KE 


SP9 


STH 


R1,WASDU 


666 


AB0F.T2 


LH 


R1, TOTAL 


667 






AIS 


R1,1 


668 






STH 


R1, TOTAL 


669 


KEEP91 


NOP 




570 






IFZ 


$DISPLAY-1 


671 






BAL 


LINK, DISPLAY 


672 






DC 


Z(TOTAL),Z(TOTERS) 


673 






ENDC 




674 






LH 


R1, TOTAL 


675 






CLHI 


R1,X'7FFF' 


676 






BNL 


HALT9 


577 






LH 


R0,BTESTNO : 



IF COUNT > LOOP, 

GO TO NEXT TEST RODOLE 

IF BREAK GO TO OPTIN 

OTHERWISE, REPEAT SA^^E TEST 

LOOK a ERROR FLAG 



PRIST "NO ERROR" 

GET TEST n 

IS THE LAST SELECTED TEST DOSE 

NO, GO SELECT NEXT TEST 



COKE HERE TO ABORT TEST SEQUENCE. 

PSH = 30F0 

DISPLAY TOTAL £ TOTERR 



HETOHN WITH R1 = DU BIT 
IF DU, DISPLAY TOTAL 
WAS IT EVER ? 
YES, PRINT TOTAL, TOTEHB 

IF CONTIN = 1, 
INCREMENT 6 GO TO TEST 
KB DEVICE = LIST DEVICE 

(FORCE PRINTING) 
•END OF TEST' 

(RESET PRINTING FLAG) 



CHECKS 'TOTAL' 

SET 'HASDU' FLAG 
INCREKENT TOTAL 



DISPLAY TOTAL & TOTERR 

TOTAL < MAX RETAINABLE ? 
ao = CURRENT TEST # 



CSL06250 
C!«L06260 
CKL06270 
CSL06280 
CyL06290 
CXL06300 
CVlOfiBIO 
C^L06320 
CfL06330 
C!?L06340 
CML06350 
CKL06350 
ClfL06370 
CWL06380 
CML06390 
C''L05400 
CyL06410 
CBL05420 
CML06430 
C''L06440 
C?'L05450 
CYL06460 
CfL06470 
^106480 
C?L05490 
C'LOeSOO 
Ci'L06510 
CXL0.6520 
C>'L06530 
C''L06540 
CyL06550 
CHL06560 
C'«L05570 
C»'L06580 
CML06590 
CfL06600 
CML06610 
C»L06620 
C!»L06630 
^106640 
C''L05650 
CitL06660 
C''L06670 
C»fL06680 
CML06690 
C''L06700 
CKL06710 
CKL06720 
CfL06730 
CSL06'740 
C«L05750 
CHL06760 
CHL06770 
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OOOJ:-82 
00OF86 
OOOFSA 

000F8E 
000F92 
000F91J 



14500 175C 

!»2S0 05180 

H300 0S76 

C310 OSOF 

9iia 

9521 



000F96 


41F0 


i4ec 


000F9A 


2036 




OO0F9C 


2400 




O00F9E 


4000 


175E 


OO0FA2 


41F0 


0B46 


OO0FA6 


41F0 


12AE 


OOOFAA 


C350 


17A6 


OOOFAE 


4050 


1758 


O00FB2 


41?0 


1222 


000FB6 


2404 




0C0FB8 


4850 


1762 


000F3C 


41F0 


11D2 


OOOFCO 


2434 




0OOFC2 


C840 


0020 


000FC6 


41F0 


12DE 


OOOFCA 


2731 




OOOFCC 


2023 




OOOFCE 


2404 




OOOFDO 


4850 


1764 


0OOFD4 


41F0 


11D2 


000FD8 


41F0 


0C08 


OOOFDC 


4300 


0372 


OOOFDC 







678 






CLH 


E0,SELTST 


IS IT LAST TEST ? 


679 






3L 


KEEP4 


NO, GO TO NEXT TEST 


680 






5 


KEEP3 


GO TO TEST 


681 


* 










682 


HALT9 


LHI 


R1,X*080F' 




683 






SLHLS 


B1,4 


(B1) = X'BOFO* 


684 






EPSB 


R2,<'1 


HALT PROCESSOB 


685 


* 










686 


* 


WHEN 


EXE/HUN IS PBESSED, 


PRINT TOTAL £ TOTERS 


687 


* 










588 


KE 


SP92 


EAL 


LIKK,TSTDU 


SEE IF LIST DEV IS ON 


689 






BNZS 


HALT9 


NO, HALT 


690 


KE 


EP10 


LIS 


R0,0 




691 






STH 


SO,WASDO 


BESFT FLAG 


692 






BAL 


LINK.FORPET 


FORCE PRINT 


693 






3AL 


LINK,CRLF 




694 






LHI 


S5,T0THSG 




695 






STH 


H5,ISITERR 




696 






BAL 


LINK, PRINT 


PRINT 'TOTAL TOTERH" 


697 






LIS 


SO, 4 


TO PRINT 4 HEX DIGIT'S 


598 






LH 


55, TOTAL 




699 






BAL 


LINK,R5HEX 


PRINT TOTAL IN HEX 


-'OO 






LIS 


R3,4 




701 






LHI 


R4,C* • 


SPACE 


702 


KEEP101 


BAL 


LINK,OUTCHH 


OUTPUT IT 


703 






SIS 


?.3,1 




704 






BP 


KEEP101 


4 TIHES 


705 






LIS 


R0,4 


TO PRINT 4 HEX DIGITS 


706 






LH 


H5,T0TEEP. 




707 






BAL 


LINK,R5HEX 


PBINT TOTESP IN HEX 


708 






BAL 


LINiCHESPRT 


RESTORE 


709 






3 


OPTIN 


GO TO BEGINNING 


710 






IFZ 


SDISPLAY-1 




711 


*************************************** 


712 


* 










713 


DI: 


3PLAY 


LIS 


30,1 


DISPLAY PANEL ADDRESS 


714 






DC 


HO, INCH 


INCEEMENTAI MODE 


715 






LH 


E1,2(LINK) 


GET 2ND PARAMETER ADDRESS 


716 






LH 


S1,0(E1) 


GET DATA 


717 






EXBE 


81, SI 




718 






WHR 


R0,S1 


WBITE DATA 


719 






LH 


R1,0(LINK) 


GET 1ST PARAMETER ADDRESS 


720 






LH 


H1,0(R1) 


GET DATA 


■'21 






SXBS 


B1,R1 




722 






WK9 


H0,R1 


WHITE DATA TO D1,D2 


723 






OC 


fiO,NORi! 


NORMAL MODE 


724 






B 


4(LINK) 


RETURN 


725 


■k 










726 






ENDC 






727 


***-****if ****** ************* 


************ 


72S 


* 










729 


* 


ssaoo 


ROUTINES 


(OVERRIDE NOMSG OPTION) 


730 


* 











CWL06780 
CWL06790 
^^106800 
CMI06P10 
CWL06820 
CLOfSBO 
C»L06840 
CLOeSSO 
CML06860 
C''L06870 

cwLoeeso 

CML06890 
CML06900 
CML06910 
CHL06920 
CML06930 
C''L0'^940 
C''L0695C 
C»fL06960 
CWL0«970 
CT!L05980 
CML06990 
CWL07000 
CLOTOIO 
CfLO-7020 
CML07030 
C'»I07040 
CML07050 
CWL07060 
CfL07070 
C''L07080 
C>fL07090 
C'^L07100 
C'"L07110 
C''L07120 
C»'L07130 
C!?L07mo 
C''L07150 
C''L07160 
CFL07170 
C'"L07180 
C'iL07190 
C?'L07200 
C""L0"771Q 
C!fL07220 
CWL07230 
C''L0''240 
CHLfi7250 
CML07250 
CKL07270 
^^107280 
CML07290 
CML07300 



SEBIES 3200 COKMEECIAL ISSTBUCTION SET TEST 06-238 SOO 
EXEC - ETPE H04 (H/CCNDIIIONAL ASSEMBLY) 



QOOFEO 
OOOFEU 
000FE8 
OOOFSC 
OOOFEE 
0OOFF2 
OO0FF5 
0OOFF8 
OOOFFC 
OOOFFE 
001002 
001006 
00100A 
00100E 
001012 
001016 
00101A 
00101E 
001022 
001026 
001Q2A 
00102E 
001032 
001036 
00103A 
00103E 
001042 
001044 
001046 
00104A 
00104E 
001052 
001056 
00105A 
00105E 
001062 
001066 
00106A 
00106E 



001072 
001076 
00107A 
00107C 
001080 
001082 
001085 
00108A 
00108E 

001090 



0000 
4120 
41E0 
2400 
4000 
4820 
9502 
D100 
030F 
DOOO 
4120 
41E0 
41E0 
4300 
DOOO 
4120 
41E0 
41E0 
4300 
DOOO 
4120 
41E0 
aiEO 
4300 
DOOO 
40F0 
lOfS 
10F8 
40F0 
4120 
41E0 
41E0 
4300 
DOOO 
4120 
41E0 
41E0 
41E0 
4300 



=0042F8 



B314 
1072 
10A6 

1758 

0A52 



B2FC =0042F8 

B2F6 =0042F8 

1072 

10A6 

10B0 

OFEC 

B2E2 =0042F8 

107 2 

10A6 

IOCS 

OFEC 

B2CE =0042FS 

1072 

10A6 

10EO 

OFEC 

B2BA =0042F8 

173E 



173C 

1072 

10A6 

1106 

OFEC 

B29A =0042F8 

1072 

10A6 

10E0 

1130 

OFEC 



5020 177C 
4810 0A54 
9501 

41F0 146C 
2138 

4020 1758 
4020 175A 
5820 177C 
0302 

4810 1764 



731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

74S 

747 

748 

•749 

750 

751 

752 

753 

754 

755 

756 

7 57 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

77 3 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 



ERR STH 
3AL 
BAL 

ERRC0tI2 LIS 
STH 
LH 

EPSS 
LK 
3E 

ERRD STM 
BAL 
BAL 
BAL 
B 

ERRS STM 
BAL 
BAL 
BAL 
B 

EREDS STH 
BAL 
BAL 
BAL 
B 

EE8L ST» 
STH 
SRLS 
SELS 
STH 
BAL 
BAL 
BAL 
B 

EEHALL STK 
BAL 
BAL 
BAL 
BAL 



50,EBESAVE 

S2,ERRC0H 

aET,ERR1 

R0,0 

R0,ISITERR 

R2,PSH 

R0,R2 

E0,ERHSAVE 

LINK 

50,EHESAVE 

R2,EREC0M 

RET,ESS1 

RET,ERSD1 

EEEC0K2 

EO,EERSAVE 

R2,EREC0H 

RET,ERE1 

RET,EERS1 

EEEC0H2 

RO.ERSSAVE 

E2,ERSC0S 

PET,ERS1 

EET,EREDS1 

SRRC0M2 

EO,ERRSAVE 

R15,CL0C 

E15,8 

E15,8 

F15,0L0C32 

E2,EREC0!! 

HET,SER1 

BET,EBEL1 

EEPC0H2 

ECEEESAVS 

R2,EREC0K 

EET,ERF1 

RET,ERRDS1 

RET,SSRPL1 

ERFC0M2 



COHSON ERROR ROUTINE 



ERRCOM 



ERRC0H1 LH 



STA 


E2,C0KRET 


LH 


E1,PSW2 


EPSE 


E0,R1 


BAL 


LIKK,TSTDU 


BNZS 


E5EC0H1 


STH 


E2,ISITERH 


STH 


R2,M0EER 


LDA 


E2,C0«RET 


BE 


E2 


LH 


El.TOTEER 
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STORE REGISTERS 

ESTUES IF LIST DEVICE IS OS 

PRINT 'EEEOR TTNN' 

RESET EESOE FLAG 



EESTOBE REGISTERS 

EETUEN TO TEST 

STORE REGISTERS 

PETUSN IF LIST DEVICE IS ON 

PRINT 'ERROE TTSM" 

PRINT 'DEV DDD- 

STOEE EEGISTEES 

RETURN IF LIST DEVICE IS ON 

PRINT 'ERROR TTSN" 

PRINT 'STA SS* 

STORE REGISTERS 

RETURN IF LIST DEVICE IS ON 

PRINT 'ERROE TTNN' 

PRINT 'DEV DDD STA SS' 

STORE EEGISTEES 

STOEE TO IS HU 

SCALE 

SCALE 

STORE TO MS HW 

RETURN IF LIST DEVICE IS ON 

PRINT 'ERROR TTNN' 

PRINT 'LOC LLIL' 

STORE REGISTERS 

RETURN IF LIST DEVICE IS ON 

PRINT "EEROE TTNN" 

PRINT 'DEV DDD STA SS' 

PEINT 'PSW PPPP LOC LLIL" 



STOEE EETUEN ADDRESS 

DISABLE INT. S PROCESSOR LEVEL 
GET LIST DEVICE DU BIT IS R1 
BRANCH IF OFF-LINE 
SET ERROR FLAG 



GO, PRINT EEEOE MESSAGE 
LIST DEVICE IS OFF 



CyL07310 

C?'L07320 

CfL07330 

C»L07340 

CWL07350 

CWL07360 

C^L07370 

C'<L07380 

CHL07390 

CNL07400 

CWL07410 

C«!L07420 

CWL07430 

C"L07440 

CML07450 

CMLO^ueO 

C^L07470 

C»fL07480 

C'?I07490 

CfL07500 

C'<L07510 

CfL07520 

C!'L07530 

CML07540 

CML07550 

C'<L07560 

C«'L07570 

C'<L07580 

C''L07590 

CfL07600 

C?fL07610 

CML07620 

C»'L07630 

C!?L07640 

C''L07650 

C!?L07660 

CML07670 

CWL07680 

CHL07690 

C»L07700 

Cri07710 

C''L07720 

CHL07730 

C?L07740 

C'^L07750 

C«fL07760 

CYL07770 

^•107780 

C?fL07790 

C'!L07800 

C1L07810 

CifL07820 

CBI07830 



SERIES 3200 COSSEECIAL INSTRUCTION SET TEST 06-238 BOO 
EXEC - ETPE POU (H/CONDITIOHAL ASSE«BLY) 
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001094 
001096 
00109A 
001C9E 
0010A2 



0010A6 
0010AA 



0010AE 



0010B0 
0010R2 
0010B6 
0010&A 
0010BE 
0010C2 
0010C6 



Q010C8 
001 OCA 
0010CE 
0010D2 
0010D5 
0010DA 
0010DE 



0010EO 
0010E2 
0010E6 
0010EA 
0010EE 
0010FO 
0010F4 
0010F8 
001CFC 
001100 
001101* 



001106 
OOllOfi 



2611 

i4010 1761* 
C510 7FFF 
4280 0F70 
4300 0F8E 



C35Q 179A 
41F0 1222 



030E 



2403 

4810 1744 
CS20 17D4 
41F0 UFA 
C850 17D0 
41F0 1222 
030E 



2402 

D310 1746 
C820 17CC 
41FQ UFA 
C850 17C8 
411^0 1222 
030E 



2403 

4310 1744 

C320 17C4 

41F0 UFA 
2402 

D310 1746 

C820 17CC 

41F0 UFA 

C8 50 17C0 

41F0 1222 
03Q'i 



4530 1732 
2333 



784 






AIS 


R1,1 


785 






3IH 


E1,T0TER8 


786 






CLHI 


E1,X'7FFF' 


787 






BL 


KEEP91 


788 






B 


HALT9 


789 


* — 














790 


•** 


MESSAGE PRINT SOOTIHES 


791 


* 








792 


* 


TO 


PRINT • 


ERROR TTHN* 


793 


* 








794 


EH 


SI 


LHI 


55,SRRHSG 


795 






BAL 


LINK, PRINT 


796 


* 








797 






BE 


RET 


798 


* 








799 


* 


TO 


PRINT ' 


DEV DDD' 


800 


* 








801 


EPRD1 


LIS 


R0,3 


802 






LH 


R1,EHRDEV 


803 






LHI 


32,ASCIDEV2 


804 






BAL 


LINK,HEXASC 


805 






LHI 


R5,DEVBSG2 


806 






BAL 


LINK, PRINT 


807 






BR 


RET 


808 


* 








809 


* 


TO 


PRINT • 


STA SS' 


810 


* 








811 


EFRS1 


LIS 


R0,2 


812 






LE 


R1,ERRSTA 


813 






LHI 


R2,ASCISTA 


814 






3AL 


LINK,HEXASC 


815 






LHI 


R5,STA«SG 


816 






BAL 


LINK, PRINT 


817 






BE 


RET 


818 


* 








819 


* 


TO 


PRINT ■ 


DEV DDD STA SS' 


820 


* 








821 


SRRDS' 


! LIS 


R0,3 


822 






LH 


R1,ERRDEV 


823 






LHI 


E2,ASCIDEV 


824 






BAL 


LINK,HEXASC 


825 






LIS 


R0,2 


825 






LB 


R1,ERRSTA 


827 






LHI 


R2,ASCISTA 


828 






BAL 


LINK,HEXASC 


329 






LHI 


B5,DEVWSG 


830 






BAL 


LINK, PRINT 


831 






3R 


RET 


832 


* 








833 


* 


TO 


PRINT ' 


'LOG LLLl- 


834 


* 








835 


EEHL1 


LH 


E0,I«0D32 


836 






sZS 


EERL1A 



INCREMENT TOTEER 

TOTERR < MAX RETAINABLE ? 

SO, ABORT CURRENT TEST £ GOTO NEXT 

YES, HALT PROCESSOR 

(DO NOT OVERRIDE NOSSG OPTION) 



PRINT "ERROR TTNN" 

TT = TEST #, NN = ERROR # 

RETURN 



SET UP DIGITS = 3 

El = ERROR DEV # IN BINARY 



CONVERT IT TO ASCII 

PRINT "DEV DD' 
RETURN 



SET UP DIGITS = 2 
R1 = ERROR STATUS 

CONVERT IT TO ASCII 

PRINT "STA SS" 
RETURN 



SET UP DIGITS = 3 
El = ERROR DEV # 

CONVERT IT TO ASCII 
SET UP DIGITS = 2 
El = ERROR STATUS 

CONVERT IT TO ASCII 

PRINT 'DEV DD STA S3' 
RETURN 



GET FLAG 
NOT 32 PIT 



C^L07840 
C''L07fi50 
C''L07a60 
CML07870 
CML07880 

cLcsgo 

C''L07900 
CML07910 
C«L07920 
CLOTgSO 
C''LQ7940 

CLcgso 

C"L07960 
C?;L07970 
C?L07980 
C''L07990 
CfLOSOOO 
CLOSOIO 
C"L0<;020 
CrL08030 
C'<L0P040 
CML03050 
C«L08060 
C?'L08070 
CML08080 

CLoeogo 
CLoeioo 

CLCSIIO 
^108120 
CML08130 
C'!L08140 
CML08150 
C''L08160 
C'fL08170 

CLoaieo 

CML08190 
CML08200 
C?IL08?10 
CFL08220 
CML08230 
C'fL08240 
C^L08250 
C''L08260 
C"?L08270 
C''LOS280 
0*^108290 
CKL08300 
C>?L0S310 
C^L0B320 
CMLQ8330 
CML0S34Q 
C«fL0S350 
CJ5L08360 



SERIES 3200 COMMEKCIAL INSTRUCTION SET TEST 06-238 ROO 
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EX 


EC - ETPE S04 


0C110C 


2406 




00110E 


2302 




00111O 


2t04 




001112 


4810 


173C 


001116 


1118 




001118 


1118 




00111A 


4610 


173E 


00111E 


C320 


17EA 


001122 


41F0 


UFA 


001126 


C850 


17E6 


00112.5. 


41F0 


1222 


00112E 


030E 





(W/COKDITIOSAL ASS5HBLY) 



001130 


4800 


1732 


001134 


2333 




001136 


2406 




001138 


2302 




00113A 


2404 




00113C 


4810 


1738 


001140 


1118 




001142 


1118 




001144 


4610 


173A 


001148 


C820 


17DE 


00114C 


41F0 


UFA 


001150 


4910 


173C 


001154 


1118 




001155 


1118 




001158 


4510 


173E 


00115C 


C320 


17EA 


001160 


41F0 


UFA 


001164 


C850 


17DA 


001168 


41F0 


1222 


00116C 


030E 





00116E 


2460 




001170 


41F0 


136C 


001 174 


24FF 




001176 


D44F 


1780 


00117A 


2334 




00117C 


27F1 




00117E 


2214 




001180 


030C 




001182 


1164 




001184 


066F 




001186 


41F0 


136C 


00118A 


C540 


e05F 


00118E 


2334 




001190 


C540 


0008 


001194 


2133 





837 




LIS 


SO, 6 


LOAD COUNT 


838 




BS 


EERL1B 


SKIP 


839 


EFHL1A 


LIS 


BO, 4 


LOAD COUNT 


840 


EERIIB 


LH 


E1,0L0C32 


GET KS HW 


841 




SILS 


81,8 


SCALE 


842 




SLLS 


R1,8 


SCALE 


843 




OH 


R1,0L0C 


GET LS m 


844 




LHI 


R2,ASCIL0C 




845 




BAL 


LIKK,HEXASC 


CONVERT IT TO ASCII 


846 




LHI 


R5,L0CKSG 




847 




BAL 


LINK, PRINT 


PEINT -LOC LLLL' 


848 




BE 


EET 


RETUHN 


849 


•k 








850 


* TO PRIST 'PSS PPPP LOC LLLL' 




851 


* 








852 


EEBPL1 


LH 


E0,M0D32 


GST FLAG 


853 




BZS 


EREPL1A 


NOT 32 SIT 


854 




LIS 


E0,6 


LOAD COUNT 


855 




BS 


EEEPL1B 


SKIP 


856 


EEHPL1A 


LIS 


R0,4 


LOAD COUNT 


857 


EESPLIB 


LH 


R1,OPSW32 


GET BS HW 


858 




SLLS 


R1,8 


SCALE 


859 




SLLS 


El, 8 


SCALE 


860 




OH 


R1,0PSW 


GET LS HW 


861 




LHI 


R2,ASCIPSW 




862 




BAL 


LINK,HEXASC 


CONVERT IT TO ASCII 


863 




LH 


S1,0L0C32 


GET iflS HW 


864 




SLLS 


El, 8 


SCALE 


S65 




SLLS 


R1,8 


SCALE 


866 




OH 


S1,0L0C 


GET LS HW 


867 




LHI 


B2,ASCIL0C 




868 




BAL 


LIKK,HEXASC 


CONVERT IT TO ASCII 


869 




LHI 


E5,PSWMSG 




870 




BAL 


LINK, PRINT 


PEINT "PSH PPPP LOC LLLL" 


871 




BR 


RET 


RETURN 


872 


******** 


*************************** 


873 


* TO 03 


TAIN OPTION VALUF IN E6 


(16 BITS, TAEGT 16) 


874 


* 








875 


OPTYAL 


LIS 


R6,0 


INITIALIZE SCCUSULATOS 


876 




BAL 


E15,GETCHR 


GET A CHAR IN S4 


377 


OPTVAIO 


LIS 


E15,15 




878 


0PTVAL1 


CLE 


P4,HEXTABCR15) 


SCAN TABLE 


879 




BES 


0PTVAL2 


MATCH 


880 




SIS 


E15,1 




881 




BNKS 


0PTVAL1 




882 




BE 


"12 


ERROR; VALUE NOT IN TABLE. 


883 


0PTVAL2 


SLLS 


E6,4 


SHIFT LEFT 4 


884 




OAB 


R6,E15 


OR IN CURRENT DIGIT 


885 


0PTVAL3 


BAL 


E15,GETCHE 


GET NEXT CHAE 


886 




CLHI 


E4,X'5F' 


IS IT LEFT AEBOW ? 


887 




BES 


0PTVAL5 


YES, BRANCH 


888 




CLHI 


R4,X'08* 


BACK SPACE ? 


889 




BNES 


0PIVAL4 


NO, BRANCH 



C»IL0 8370 
CHL08380 

cLossgo 

CWL08400 
C»!L08410 
CML08420 
CWL08430 
C»'L08440 
C''L08450 
C''L08460 
C??L08470 
C»'L08480 
C'"L08490 
CFLOqSOO 
C^L08510 
C'«L08520 
CML08530 
CNL0e540 
CKL08550 
C^L08560 
C«fL08570 
CWL08580 
C'{L08590 

CLOseoo 

CSL08610 
CfL08e20 
CML08630 
C!'L08640 
CfLOBeSO 
C1'L08660 
C''L08670 
Cfl08680 
CWL08690 
C"'L08700 
C''L08710 
C?'L08720 
C''L08730 
C«L08740 
C''L08750 
C'«L0B760 
C''L0B770 
CWL0R780 
CWL08790 
C*!L08800 
CWL08810 
C"L08820 
CML08830 
CJ«L08840 
C«L08850 
CWL0R860 
C''L08870 
CILOSSSO 
C!'L08890 



SERIES 3200 CORHEECIAL INSTSDCTION SET TEST 06-238 800 
EXEC - ETPE ROa ( W/COKDITIONAL ASSESBLY) 



001196 


1064 




001198 


2209 




00119A 


C5U0 


OOOD 


00119E 


033E 




0011AO 


C540 


002C 


OOllAit 


'4230 


1171* 


0011A8 


030E 





0011AA 


2U31 




00 11 AC 


C560 


OOOF 


0011B0 


033E 




001132 


0A33 




001134 


2661 




*0011B5 


2205 




0011B8 







0011B8 
0011EC 
0011BE 
0011CO 
OOllCt 
0011C8 
*0011CA 
0011CC 
0011D0 

0011D2 



0011D2 



DQOO B3ltC =004508 

2410 

2421 

4830 0A4E 

Clio 11C4 

2701 

2037 

D100 B338 



=004508 



030F 



890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

915 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

93S 

939 

940 

941 

942 



0PTVAL5 SBLS 
BS 

0PTVAL4 CLHI 
BEH 
CLKI 
BSE 
BE 

* 

**T0 COHVERT ( 



86,4 

0PTVAL3 

R4,13 

514 

E4,X'2C' 

OPTVALO 

R14 
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THROW AWAY LAST HEX ENTRY 

EXIT IF C5 

OS COHHA 

LOOP TO PROCESS 

RETURN 



fi6) FROM BINARY TO UNARY PATTERN, IN S3 



USARY 
UNAHYI 



LIS 

CLHI 

BES 

AAR 

AIS 

B 

IFZ 



R3,1 

R6,15 

514 

fi3,H3 

56,1 

UNSRYI 

$CL0CK-1 



INITIALIZE 

DONE ? 

RETURN 

NO. SHIFT R3. 

INCREMENT COUNTER 



TO PROVIDE # OF MILLISECONDS DELAY SPECIFIED BY EC 



TIMER 
STI^iEEl 



STIKXT 



STH 

LIS 

LIS 

LH 

BXLE 

SIS 

BNZ 

LK 

BH 

ENDC 

IFZ 



R0,RSAVE 

R1,0 

R2,1 

H3,TIKE 

R1,* 

50,1 

STIMER1 

RO,RSAVE 

LIFK 



SAVE REGISTERS 

53 = TIME CONSTANT FOE 1 KS D?;LAY 



LOOP TILL SPECIFIED DELAY 
RESTORE REGISTERS 
RETURN 



SCLOCK-3 

TO PROVIDE # OF MILLISECONDS DELAY SPECIFIED BY RO 



STIMES 
STIMERI 



STIMXT 

HTIMER 

CLOCK 



TIMES 
CLOCK 



STM 

LIS 

LIS 

LH 

BXLE 

SIS 

BNZ 

LK 

BE 

NOP 

BR 

DCX 

SNDC 

IFZ 

NOP 

BR 

DCX 

ENDC 



RO,RSAVE 

E1,Q 

32,1 

83, TIME 

El,* 

50,1 

$TIKEE1 

50,RSAVS 

LINK 

LINK 

ec 

$CI0CK-2 

LINK 
6C 



SAVE REGISTERS 

R3 = TIME CONSTANT FOR 1 MS DELAY 

LOOP TILL SPECIFIED DELAY 
EESTCSE 5EGISTE5S 
RETURN 



CMLoegon 
CfLosgio 

CML08920 
CML08930 
C»'L08940 
CWL08950 
CML08960 
CfL08970 
CML08980 
CML08990 

c^Logooo 

CML09010 
CML09020 
CML09O30 
CML09040 
CML09050 
CML09060 
C'«L09070 
CML09080 
CML09090 
CML09100 
CLOgilO 
CML09120 
CML09130 
CML09140 
CLOgiSO 
CML09160 

CLogno 
ciogiso 

CML09190 
CML09200 
C»'L09210 
CfL09220 
C''L0923n 
CML09240 
C'«L09250 
CML09260 
CML09270 
C'»L09280 
C"L09290 
CWL09300 
CML09310 
C«I09320 

CWL09340 

c^Logsso 

CML09360 
CVL09370 

CWL093g0 
CML0g400 
CML09410 
CML09420 
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0011D2 
001 1D6 
0Q11D8 

*0011DA 
0011DC 
0011DE 
0011EO 
0011E4 
0011E8 
0Q11EC 
0011F0 

*001 1F2 
0011F4 
0011F8 
0011F8 



0011FA 
0011FE 
001200 
001202 
001204 
001206 
00120A 



DOOO B332 

0820 

2721 

211D 

1122 

0845 

ECl)2 0000 

C440 OOOF 

0344 1780 

41F0 12DE 

2724 

221A 

D100 B310 

030F 



=004508 



= 004508 



DOOO B30A =004508 

0830 

1132 

2734 

0341 

EC43 0000 

C440 OOOF 



943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 



S5HEX PRINTS CONTENTS OF E5 
PRINTS UPTO 4 DIGITS 



B5HEX 



H5X 



asxA 



R5XB 



STM 

IDAS 

SIS 

BM 

SLLS 

LDAR 

SEAL 

NHI 

LB 

BAL 

SIS 

BNH 

LH 

BS 

IFZ 



SO,RSAVE 

E2,R0 

E2,1 

R5XB 

R2,2 

E4,R5 

B4,0(E2) 

R4,15 

R4,HEXTAB(R4) 

R15,0aTCHR 

E2,4 

R5X 

EO,ESAVE 

LINK 

SB5BIN-1 



IN HEX 

(8 DIGITS, TAPCT 32) 

STORE REGISTERS 

R2 = # OF DIGITS TO 3E PSINTFD 



E2 = 4{DIGITS-1) 



S4 = HEX DIGIT 



LOOP TILL ALL DIGITS 
RESTORE REGISTERS 
RETURN 



R53IN PRINTS CONTENTS OF R5 IN BINARY 
PRINTS UPTO 16 DIGITS 



R5BIN 

R5B 

R531 

R5B2 

E5B3 

R534 



STH 


RCRSAVE 


LDAR 


E3,R0 


LHI 


El, 16 


SAE 


H1,E3 


BH 


R5E2 


SLHL 


R5,0(R1) 


LHI 


R4,C'0' 


SLHLS 


R5,1 


BNC 


R5B1 


AIS 


R4,1 


BAL 


LINK,OOTCHR 


SIS 


E3,1 


BP 


R5B3 


LS 


RO,SSAVE 


BR 


LINK 


THI 


S3, 3 


BNZ 


S5B4 


LHI 


R4,C' • 


BAL 


R15,0UTCHE 


B 


R5B 



ENDC 



STORE REGISTERS 

E3 = # OF DIGITS TO BE PSISTED 



EXIT 

R5 = DATA TO BE PRINTED 



IF CARRY, PRINT 1 

E3 = # OF REMAINING DIGITS 

RESTORE REGISTERS 

RETnRN 

4,8 OE 12 DIGITS LEFT ? 

HO 

YES, OUTPUT ONE SPACE 

LOOP FOR NEXT DIGIT 



TO CONVERT HEXADECIMAL DATA IN B1 TO ASCII CHAR Z. STORE S 0(R2) 



HEXASC 



HEXASC1 



STM 


RCRSAVE 


LDAR 


R3,B0 


SLLS 


33,2 


SIS 


E3,4 


LDAR 


S4,R1 


SEAL 


R4,0(R3) 


SHI 


S4,15 



STORE REGISTERS 
E3 = DIGITS 

E3 = 4(DIGITS)-4 
P4 = HEX DATA 

H4 = HEX DIGIT TO BE CONVERTED 



C>!L09430 
CML09440 
CML09450 
CML09460 
C«L0'5470 
C'?I09480 
^109490 
CWL09500 
CML09510 
^109520 
Cf'L09530 
C«L09540 
C»L09550 

CLogseo 

CHL09570 
CyL09580 
CML09590 
CWLOO'JOO 
C*L09fi10 
C'»L09620 
CWL09630 
CWL09640 
C''L09650 
C1I09660 
C''L09670 
CrL09680 
CXL09690 
CKL09700 
CML09710 
C«I09720 
C'?L0O730 
CML09740 
C''L09750 
CYL09760 
C'fL09770 
C1L09780 
C''LP9790 

CLogaoo 

CML09810 
CWL09820 
CLOQSSO 
C>'L09840 

CLogeso 

C''L09S60 
C''L09870 
C!!L09880 
^109890 

CLoggoo 

C?IL0?910 
C'fL00920 

CLoggso 

C''L09940 
CWL09950 
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STORE ASCII CHAR 



00120E 


D344 


1760 


995 


001212 


D242 


0000 


997 


001216 


2621 




998 


001216 


2734 




999 


*00121A 


221B 




1000 


00121C 


D100 


B2E8 =004508 


1001 


001220 


030F 




1002 


001220 






1003 
1004 
1005 
1006 
1007 

looa 

1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 


001222 


DOOO 


B2E2 =004508 


1033 


001226 


41F0 


145C 


1034 


00122A 


4 0?0 


1755 


1035 


00122E 


2337 




1036 


001230 


4010 


175E 


1037 


001234 


4010 


1750 


1038 


001238 


4300 


1295 


103S 


00123C 


4820 


175E 


1040 


*001240 


2333 




1041 


00124 2 


2541 




1042 


001244 


4040 


1760 


1043 


00124S 


2434 




1044 


00124A 


41F0 


12DE 


1045 


001242 


2731 




1046 


*001250 


2023 




1047 


001252 


43C0 


0J9C 


1048 



LB 


fi4,HEXTAB(H4) 


STB 


B4,0(R2) 


AIS 


E2,1 


SIS 


53,4 


BNS 


HEXA3C1 


L« 


R0,RSAVE 


BR 


LINK 


IFZ 


SDECASC-1 



TO CONVERT BINARY DATA IN R1 
AND STORE THEH IB ASCII 3 



DECASC 



SDECI 



$DEC2 



5DEC3 



STM 

LDAR 

SLLS 

SIS 

LIS 

LDA 

CIAR 

BLS 

SAB 

AIS 

CLHI 

BL 

SIS 

BS 

LB 

STB 

AIS 

SIS 

BNM 

LH 

BE 

ENDC 



RO,RSAVE 

P3,E0 

H3,LADC 

R3,ADC 

R4,0 

R5,DECTAB(R3) 

R1,R5 

SDEC3 

R1,R5 

R4,1 

R4,10 

$DEC2 

R4,10 

SDEC2 

H4,HEXTA3(E4) 

R4,0(R2) 

R2,1 

S3, ADC 

SDECI 

R0,RSAVE 

LINK 



TO PRINT THE ASCII MESSAGE 



PRINT 



PI 



P2 



ST* 


R0,RSAVE 


BAl 


LINK,TSTDU 


STH 


LINK,PETFLC- 


3ZS 


P1 


STH 


E1,HASDU 


STH 


E1,MASDU1 


E 


PRINTS 


LH 


R2,WASDU 


BZ 


P3 


LCS 


S4,1 


STK 


R4,WASDU1 


LIS 


R3,4 


BAL 


LINK,OUICHF 


SIS 


R3,1 


BP 


P2 


B 


KEFP10 



LOOP TILL ALL DIGITS 
RESTORE REGISTERS 
BET'JBN 



INTO DECIMAL DIGITS 
0(R2) 



COPY DIGIT COUNT 
SESTAELISH DECTAB INDEX. 

CLEAR MODULUS COUNTER 

LOAD LABGEST REQ. POWER 0? 10. 

EXCEEDS TEST VALUE ? 

BRANCH IF YES. 

DECREMENT TEST VALUiJ 

INCREMENT MODULUS COUNTER 

VALID DECIMAL DIGIT ? 

BRANCH IF YES; EL E 

FORCE VALID DIGIT, 

REPEAT DECREMENT. 

CONVERT MODULUS COUNT TO ASCII 

AND STORE AT DESTINATION MSB. 

INCREMENT DESTINATION POINTER 

DECREMENT DECTAB POINTER 

FALL THROUGH ON DECTAB UNDERFLOW. 

RESTORE USER'S REGISTERS 

RETURN. 



STORE REGISTERS 

SET FLAG 

SET WASDU FLAGS 

EXIT 

CHARACTER = X'FF" 



PRINT TOTAL, TOTEER 



CML09S60 
C'!L09970 
CML099S0 

c^Logggo 

CLIOOOO 
C-fLIOOlO 
C''L10020 
CLIOOBO 
C^L10040 
C-IIOOSO 

c'Liooeo 

CXL1007n 
CLIOOSO 

c-TLioogo 

CLIOIOO 
CML10110 
C*L10120 
CfLIOISO 
C''L10140 
CLIOISO 
"MLIOieO 
C"L10170 
CWL10180 

CLioigo 

C»L10200 
C'fL10210 
C«L10?20 
CLIOSSO 
CML10240 
C"L10250 
CML10260 
CML10270 
C"L10280 
CfLIO^gO 
C''L10300 
CLIO^IO 
CrL10320 
CLIOSSO 
C''Lin340 
C''L10350 
CWL10360 
C''L10370 
CML10380 
CfL10390 
CLIOUOO 
C''L10410 
C»'L10420 
C''L10430 
CML10440 
C''L10450 
C«L10460 
CML10470 
C"'L10480 
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001256 


4800 


3050 


=0042AA 


1049 


P3 


LH 


BCDUSAVE 




*00125A 


2335 






1050 




BZ 


PKINT2 


SO, PRINT ALL MESSAGES 


00125C 


4800 


1758 




1051 




LH 


BO,ISITEKR 




C01260 


4330 


1296 




1052 
1053 


* 


5Z 


PRINTS 


NOT AN ERROR MSG. EXIT 


00126U 


2462 






1054 


PSIST2 


LIS 


85,2 


LOAD "LOOK" COUNT 


00126 6 


0345 


0000 




1055 


PSINT2A 


LB 


B4,0(R5> 


GET A MESSAGE BYTE 


00126A 


41F0 


12DE 




1056 




BAL 


LINK,OUTCHR 


OUTPUT IT 


00126E 


274D 






1057 




SIS 


R4,13 


CR ? 


*Q01270 


2337 






1058 




BZ 


PEINT3 


MSG OVER 


001272 


2551 






1059 




AIS 


E5,1 




001274 


2751 






1060 




SIS 


S6,1 


DECREMENT COUNT 


♦001276 


2038 






1051 




BNZ 


PRINT2A 


CONTINUE 


001278 


41F0 


13B8 




1062 




BAL 


R15,TSTBEK 




00127C 


220C 






1063 




BS 


PEINT2 


LOOP FOR NEXT CHAR 


00127E 


244A 






1064 


P5IST3 


LIS 


P4,10 


LF 


001280 


D310 


B031 


=004235 


1065 




LB 


S1,I0SAVE+1 


GET LIST DEV IDENTIFIER 


001284 


2713 






1066 




SIS 


R1,3 


LINE PRINTER ? 


*001286 


2335 






1067 




BZ 


PRmT3A 


EBANCK IF YES. 


001288 


41F0 


120E 




1068 




BAL 


IINK,OUTCHR 


LF 


00128C 


2541 






1069 




LC3 


R4,1 


DEL 


00128E 


2302 






1070 




BS 


PPIMT3B 




001290 


2441 






1071 


PRINT3A 


LIS 


E4,1 


YES, OUTPUT X'Or 


001292 


41F0 


12DE 




1072 


PRINT3B 


BAL 


LINK,OUrCHR 


TERMINAL CHARACTER 


001296 


24F0 






1073 


PHINT5 


LIS 


LIHKrO 




001298 


40F0 


1756 




1074 




STH 


LINKrPRTFLG 


CLEAR FLAG 


00129C 


41F0 


13B8 




1075 




BAL 


LINK,TSTBRK 




0012A0 


48F0 


1754 




1076 




LH 


LINK,BRKFLG 




0C12A4 


4230 


0B5C 




1077 




BNZ 


0PTIN2 


FREAK HAS OCCUESSD 


0C12A8 


D100 


B25C 


=004508 


1078 




Ly 


EO,RSAVE 


RESTORE REGISTERS 


0C12AC 


030F 






1079 
1080 




BR 


LINK 


RETURN 


























1081 


* SMALL 


SUPPORT SOUTIKES 












1082 


* 
















1083 


* TO OUTPUT 


CR,LF TO LIST DEVICE 












1084 


* 








0012AE 


DOOO 


B256 


=004508 


1085 


CRLF 


STS 


PO,RSAVE 


STORE REGISTERS 


C012B2 


4800 


AFF4 


=0042AA 


1086 




LH 


RO,DUSAVE 


GET NOMSG VALUE 


0012B6 


4230 


12D8 




1067 




BNZ 


PEINT3C1 


NOT ZERO, EXIT 


0012BA 


244D 






1088 




LIS 


R4,13 




0012BC 


41F0 


12DF 




1089 




BAL 


LI}JK,OUTCHB 


OUTPUT CB 


0012C0 


244A 






1090 




LIS 


R4,10 


LF 


0012C2 


D310 


AFEF 


=0042B5 


1091 




LB 


81,I0SAVS+1 


GET LIST DEV IDENTIFIER 


0C12C6 


2713 






1092 




SIS 


PI, 3 


LINE PRINTER ? 


C012C8 


2335 






1093 




3ZS 


PSIKT3A1 


BRANCH IF YES. 


0012CA 


41F0 


12DE 




1094 




BAL 


1INK,0UTCHE 


LF 


0012CE 


2541 






1095 




LCS 


R4,1 


DEL 


*0012D0 


2302 






1096 




B 


PBINT3B1 




0012D2 


2441 






1097 


PSINT3A1 


LIS 


R4,1 


YES, OUTPUT X'01" 


0012D4 


41F0 


12DE 




1C98 


PEINT3B1 


BAL 


LINK,OHTCHE 


TERMINAL CKARACTEH 


0012D8 


D100 


B22C 


= 004'^08 


1099 


PSINT3C1 


LS 


R0,BSA¥E 


RESTORE REGISTERS 


0012DC 


030F 






1100 
1101 


*. . 


BB 


LINK 


RETURN 



CML10490 
CML10500 
CML10510 
CKL10520 
C«L10530 
CyL10540 
CFL10550 
CML10560 
CWL10570 
CML10580 
C'«L10590 
CML10600 

CLioeio 

CML10620 
CML10630 
CML10640 
C?!L10650 
CLIOSfiO 
CNL10670 
CML10680 

ciLiosgo 

CML10700 
C"'L10710 
C'"L10720 
CML10730 
C''L10740 
CML10750 
CML107<SO 
CML10770 
C''L10780 
C»'L10790 
C"L10900 
C»'L10810 
C''L10820 

c^Liosao 

C?ai0840 
CML10850 
CML10860 
C'«L10870 
CWI10880 

cLiosgo 

CLIOOOO 
CML10910 
CML10920 
CML10930 
CWL10940 
CLIOPSO 

CLiogeo 

CML10970 
C?'L10980 
CML10990 
C^LIIOOO 
CML11010 
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1102 


* TO OUTPUT A 


CHARACTER TO THI 








1103 


• 








0012DE 


50V0 


1770 


1104 


OUTCHK 


STA 


R15,0UT.SAV 


0012E2 


D300 


AFCF =004285 


1105 






LB 


H0,I0SAVE+1 


0012E6 


270U 




1106 






SIS 


SO, 4 


0012E8 


U?3Q 


1326 


1107 






BHZ 


.0UTCHH2 


0012EC 


UOOO 


176E 


1108 






STH 


RO, PAUSE 


0012FO 


41F0 


146C 


1109 


OTC. 


.0 


BAL 


LINK,TSTDU 


0012F4 


4230 


1362 


1110 






BNZ 


OUTO 


0012F8 


9D01 




1111 






SSE 


R0,R1 


*0012FA 


2386 




1112 






HFC 


8,CTC.2 


0012FC 


4810 


176E 


1113 


OTC, 


.1 


LH 


SI, PAUSE 


001300 


2033 




1114 






BNZS 


OTC.O 


001302 


4300 


1326 


1115 






B 


0UTCHS2 


001306 


9B01 




1116 


OTC. 


.2 


RDR 


R0,E1 


001308 


C410 


007F 


1117 






NHI 


R1,X'7F' 


00130C 


CB10 


0012 


1118 






SHI 


R1,X'12' 


♦001310 


2134 




1119 






BNZ 


OTC. 3 


001312 


4010 


176E 


1120 






STH 


R1, PAUSE 


001316 


2308 




1121 






BS 


0UTCHE2 


001318 


2712 




1122 


OTC 


.3 


SIS 


PI, 2 


00131A 


4230 


12F0 


1123 






BNZ 


OTC.O 


00131E 


40F0 


176E 


1124 






STK 


LINK, PAUSE 


001322 


4300 


12F0 


1125 
1126 


■k 




B 


OTC.O 


001326 


4010 


176E 


1127 


0UTCHR2 


STH 


El, PAUSE 


00132A 


41F0 


146C 


1128 






BAL 


LINK,TSTDU 


00132E 


4230 


1362 


1129 






BNZ 


OUTO 


001332 


4110 


1UBC 


1130 






BAl 


PI, SETUP 


001336 


9D01 




1131 


OTC 


.4 


SSE 


SO, PI 


001338 


4230 


1362 


1132 






BTC 


3, OUTO 


00133C 


C510 


OQOC 


1133 






CIHI 


E 1 , 1 2 


00131(0 


4330 


1362 


1134 






BE 


OUTO 


0013iK4 


C310 


0008 


1135 






THI 


R1,8 


*0013!t8 


2039 




1136 






BNZ 


0TC.4 


00 134 A 


9A04 




1137 






WDR 


R0,R4 


00134C 


41F0 


146C 


1138 


OTC 


. 5 


BAL 


LINK,TSTDU 


*001350 


2139 




1139 






BNZ 


OUTO 


001352 


0310 


AF5F =0042EF 


1140 






LB 


R1,ICSAVE+1 


001356 


9112 




1141 






SLHLE 


R1,2 


001358 


4801 


0A10 


1142 






LH 


F0,I0(R1) 


00135C 


9D01 




1143 






SSR 


E0,E1 


*00135E 


2089 




1144 






BTC 


8, OTC. 5 


*001350 


2303 




1145 






B 


0UT1 


001352 


4010 


175E 


1146 


OUTO 


STH 


S1,WASDU 


001366 


58F0 


177C 


1147 


OUT 


1 


LDA 


R15,0UT.SAV 


00136A 


030F 




114S 
1149 


n 




BR 


315 






















1150 


* 


TO GET A CHAP, FSCH KEYBCA3D 








1151 


* 








00135C 


4140 


14AC 


1152 


GETi 


CHR 


BAL 


E4,KBEEAD 


001370 


0390 




1153 






LDAS 


B9,H0 


001372 


9D04 




1154 






SSS 


E0,E4 
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SAVE RETURN ADDRESS 



BRANCH IF NOT CAROUSEL 

ON LINE ? 

NO, BRANCH 

GET CAROUSEL STATUS 

BRANCH IF CHAR. IS TO BE 5EAD 

PAUSED NOW ? 

YES, LOOP 

NO, 30 OUTPUT CHARACTER 

GET CAROUSEL CHARACTER 

DC2 ? 



DC4 ? 

SO, CO WAIT FOR DC2 



RESET FLAG 
OFF-LINE ? 
BRANCH IF OFF-LINE 
SET UP FOR OUTPUT 
SAIT FOR NOT BUSY 
BRANCH IF OFF-LINE 
PASLA OFFLINE ? 
BRANCH: YES. 
BUSY ? 

WAIT FOR NOT BU=:Y. 
OUTPUT DATA BYTE 



GET CONSOLE WRITE ADDRFSS 

WAIT FOR BUSY TO DROP 

SET FLAG 

RETURN AS SET UP ABOVE 

(IH REG R4) 

PUT KB DEVICE IH READ XODE 
SAVE CONSOLE ADDRESS 



C»'Lt1020 
CILIIOSO 
CPri11040 
CLIIOSO 

CLiioeo 

CML11070 
CML11080 

c^Liiogo 

CLIIIOO 

CLiino 

CWL11120 
C!«L11130 
C'»L11140 
CLUISO 
C^LIIISO 
CWL11170 
CLIIIBO 

cLiiign 

C'^L11200 
CKL11210 
C^L 11220 
CWL11230 
CWL11240 
CrL11250 
C''L11260 
C''L11270 
CML11280 
C'*L11290 
CHL11300 
C)1L11310 
CWL11320 
CLIISSO 
C''L11340 
CLIISSO 
CML113«0 
C''L1137C 
C"IL11380 
C''L11390 
CML11400 
C«L11410 
C!?L11420 
CFL11430 
C'?L11440 
CML11450 
ClLllliSO 
CL1 1470 
C«L11480 

CWL11500 
CML11510 
C?'L11520 
CHL11530 
C!'L11540 
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EXEC - STPE POU (Sf/CGNDITIONAL ASSEMBLY) 



001374 


2081 




001376 


9B04 






0000 


1378 


00137B 


4890 


0A2A 


00137C 


D300 


0A10 


001380 


C500 


0002 


001384 


2339 




001386 


C500 


0005 


00138A 


2336 




00138C 


4890 


0A2C 


001390 


DD90 


174 A 


001394 


2082 




001396 


9RS4 




001398 


C440 


007F 


00139C 


030F 





00139E 
0013A2 
0013A6 
0013AA 
0013AE 
0013B0 
0013B4 



0013B8 
0013BC 
0013C0 
0013C4 
0013C8 
0013CC 
0013D0 
0013D4 
0013D8 
0013DA 
0013DC 
0013EO 
0013E4 
0013E8 
*0013EC 
0013EE 
0013F2 
0013F4 
0013F8 
0013FA 
0013FC 
0013FE 
001402 
001406 



41F0 12AS 
40F0 1758 
C850 1818 
41F0 1222 
2400 

4000 1758 
4300 0B7E 



DOOO 
50F0 
48F0 
4230 
48F0 
C5F0 
4330 
0310 
9112 
2712 
4811 
4010 
D310 
C510 
233D 
4810 
9D12 
4280 
9312 
9B12 
0822 
4330 
4300 
4810 



B18C =004548 

1774 

1754 

143C 

AEDE =0042AA 

0002 

143C 

AEDC =004264 



OA10 

174A 

AECC =0042B4 

0005 



174A 
143C 



1420 
143C 
174A 



1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1183 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

11S7 

1183 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 



BT3S 8,1 
BDB E0,S4 
**T0 ECHO EECEIVED CHABACTERS TO 



ECHO 



ECH01 
ECHRTN 



SQU 

LH 

IB 

CLHI 

BES 

CLHI 

BES 

LH 

SS 

BTBS 

HDB 

SHI 

BH 



E9, COMRADE 

50,10 

E0,X'02' 

ECH01 

R0,X'05' 

ECH01 

B9,C0NWADS 

E9,SINK 

8,2 

E9,S4 

R4,X'7F' 

LIKK 



* TO 


OUTPUT 


'?• TO CONSOLE 


QUESTS 


I BAL 


LINK,CELF 




STH 


LISK,ISITEEE 




LHI 


E5,QKSG 




BAL 


LINX,PEIST 




LIS 


S0,0 




STH 


RO,ISITEHR 


*————- 


B 


0PTIK1 



'■IF BREAK KEY DEPRESSED, GO TO 



TSTBRK 



STK 

STA 

LH 

BNZ 

LH 

CLHI 

BE 

LB 

3LKLS 

SIS 

LH 

STH 

LB 

CLHI 

BE 

LK 

SSE 

ETC 

EDK 

SDE 

LCAE 

BZ 



TSTBHK1 LH 



R0,SSAVE+64 

LINK,BSK.SAV 

LINK,BEKFLG 

TSTBSK3 

LINK,DUSAVE 

LIKK, 2 

TSTBaK3 

S1,I0SAVE 

El, 2 

R1,2 

S1,I0(H1 ) 

SI, SINK 

R1,I0SAVE 

E1,5 

TSTBRK1 

F1,SIRK 

E1,E2 

8,TSTB8K3 

R1,R2 

R1,S2 

R2,B2 

TST3EK2 

TSTBRK3 

El, SINK 



IF BUSY, LOOP (POSSIBLE HANG) 
READ A CHAR IS 34 
CONSOLE DEVICE IH FDX MODE 

GET CCKSOIE HEAD ADDRESS 

GET CCSSOIE TYPE 

CLI?? 

YES, ECHO 

MICRO I/O BUS?? 

YES, ECHO 

GET WRITE ADDRFSS 

SENSE STATUS 

iJAIT FOR BUSY NOT 

ECHO RECEIVED BYTE 

REHOVE PARITY BIT 

RETURN 



SET FLAG 
PRINT ■?• 

TO ACCEPT COHKAND INPUT 

•OPTIN* OR (BRKVECT)} ELSE RETURN. 

STORE REGISTERS 
SAVE RETURN ADDRESS 
ALREADY SET?? 
YES, EXIT 
DU?? 

YES, DON'T RESPOND IF KEY DEPRESSED 
LOAD CONSOLE READ DEVICE 



SAVE ADDRESS 

PE-LOAD DEVICE IDENTIFIER 

!!ICRO-BUS?? 

YES 

RE-LCAD CONSOLE ADDRESS 

NO KEY DEPRESSED = NO BREAK 

DUHHY READ 

EEAB KEY DEPRESSED 

SET CC 

ZERO CHAEACTEE = BREAK 

NO BREAK 

RE-LCAD CONSOLE ADDRESS 



C»L11550 

CKL11560 

C»L11570 

CML11580 

C«L11590 

CML11600 

CLIIfilO 

CT 11^20 

C'»L11630 

C*L11640 

CLU^BO 

CLU^fiO 

CfL11670 

CWL11680 

CWL11690 

C"L11700 

C''L11710 

C''L11720 

CML11730 

C''L11740 

CyL11750 

C'fL11760 

^111770 

C''L11780 

CHL11790 

CLIISOO 

CLIISIO 

C'»L11820 

CLIISSO 

C''L11840 

CLIIBSO 

C"L11860 

CML11870 

CML11880 

C?fL11890 

CLIigOO 

CLIigiO 

CfL11920 

C>fL11930 

C''L11940 

CW111950 

CML11960 

C''L11970 

cLiigso 

C''L11990 
C'«L12000 
C'?L12010 
CFL12020 
C'«L12030 
CML12040 
C>«L12050 
C''L12060 
CWL12070 
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00140A 


C830 


7FFF 


1208 




LHI 


S3,X'7FFF' 


LOAD LOOP VALUE 


CML120S0 




0000 


140E 


1209 


TSTBBK3 


EQ'J 


* 




C''L12090 


00140E 


2731 




1210 




SIS 


E3,1 


DECREMENT 


C!»L12100 


001410 


2211 




1211 




BNMS 


TSTERK8 


LOOP 


CWL12110 


001412 


9R12 




1212 




RDS 


E1,S2 


DUHKY READ 


0*112120 


001414 


9D12 




1213 




S3R 


51, R2 


SENSE STATUS 


C«L12130 


001415 


C320 


0020 


1214 




THI 


E2,}f20' 


BREAK STATUS?? 


CML12140 


00141A 


4230 


1454 


1215 




3NZ 


TSTBEK4 


YES, WAIT UNTIL RELEASED 


CWL12150 


*00141fi 


230F 




1216 




3 


TST3RK3 


NO 


CML12160 


001420 


48F0 


1752 


1217 


TST3HK2 


LK 


R15,BRKVECT 


CHECK FOE SPECIAL ROUTINE 


C«L12170 


001424 


4230 


144C 


1218 




3NZ 


TSTBHK5 


HOUSE-KEEP BEFORE SPECIAL EXIT 


C^LIJISO 


001428 


24FF 




1219 




LIS 


LINK, LINK 




C''L12190 


00142A 


40F0 


1754 


1220 




STrl 


LINK,3RKFLG 


SET FLAG 


C*:L12200 


00142E 


48F0 


1756 


1221 




LH 


LI»IK,PETFLG 


LOAD FLAG 


C'?L12210 


001432 


4330 


0B5C 


1222 




BZ 


0PTIN2 


NOT PRINTING, EXIT 


C''L12220 


*001436 


2303 




1223 




B 


TSTBRK3 


FSEUDO NO BREAK EXIT 


C'»L12?30 


001438 


50F0 


1774 


1224 


TSTBKK6 


STA 


H15,BBK.SAV 


SETUP FOB EXIT 


CWL12240 


00143C 


2400 




1225 


TSTBRX3 


LIS 


E0,0 




C»L12250 


00143E 


4000 


1752 


1226 




STH 


RO,BRKVECT 


DELETE VECTOR AFTER ONE SHOT. 


CWL12260 


001442 


D100 


3102 =004548 


1227 




LH 


R0,8SAVE+64 


RESTORE REGISTEBS 


C''L12270 


001446 


58F0 


1774 


1228 




LDA 


lii;k,bek.say 




CWL12280 


00144A 


030F 




1229 




BH 


LINK 


RETURN TO PPOGEAK 


CWL12290 


00144C 


2420 




1230 


TSTBRK5 


LIS 


52,0 




CML12?00 


00144E 


4020 


1754 


1231 




STH 


R2,BSKFLG 


CLEAR FLAG 


CML12310 


*001452 


220D 




1232 




B 


TST3HK5 




CXL12320 


001454 


9B12 




1233 


TST3RK4 


RDR 


B1,E2 


DUHWY READ 


C'eL12330 


001456 


C830 


4000 


1234 




LHI 


B3,X'4000' 


LOAD CONSTAN':' 


C"fL12340 


00145A 


1131 




1235 




SLLS 


H3,1 


DOUBLE (SO HW EXTENSION) 


C»'L12350 


00145C 


9D12 




1236 




SSS 


R1,52 


SENSE STATUS 


C''L12360 


00145E 


2731 




1237 


TSTBR'<7 


SIS 


B3,1 


DECREMENT 


C''L12370 


001460 


2031 




123S 




BNZS 


TSTBBK7 


WAIT 1 CHARACTER TIME (100MS HAX) 


CML12380 


001462 


C320 


0020 


1239 




THI 


H2,X'20' 


BREAK STATUS STILL SET?? 


C«L12390 


001466 


2039 




1240 




BNZS 


TSTBRK4 


WAIT UNTIL RELEASED 


C''L12400 


001468 


4300 


1420 


1241 
1242 


*——_—_ 


B 


TST3RK2 


EXIT 


C!?L12410 










CWL12420 








1243 


**3EE I^ 


CUR RE 


ST LIST DEVICE IS OFF-LINE (R1 £ CC HOS-ZERO IF OFF) 


CWL12430 








1244 


* 








C«L12440 


00146C 


D310 


»E45 =0042B5 


1245 


TSTDtl 


LB 


HI ,I0SAVE+1 


GET I/O POINTER FOB LIST DEVICE 


C1L12450 


001470 


9112 




1246 




SIKLS 


R1,2 




C'»L12460 


001472 


2712 




1247 




SIS 


HI, 2 




C''L12470 


001474 


4811 


0A10 


1248 




LH 


R1,I0(R1) 


GET DEVICE ADDRESS 


C''L1?480 


001478 


4010 


174A 


1249 




STH 


R1,SINK 


AND SAVE IT 


C!^L12490 


00147C 


4310 


SE2A =Q042Af 


1250 




LH 


S1,DnSAVF 


GET PARAMETER 


0^112500 


001480 


CSIO 


0002 


1251 




CLKI 


R1,2 


DU?? 


CfL12510 


*001484 


2332 




1252 




BE 


STSTDU2 




C''L1?520 


001486 


2511 




1253 




LCS 


S1,1 


"NOT DU" EXIT: R1=CC=0 


CWI12530 


001488 


4800 


17 4A 


1254 


$TSTDU2 


LH 


PO,SINK 


PUT DEVICE ADDRESS IN RO 


C'*L12540 


00148C 


C710 


FFF? 


1255 




XHI 


S1,-1 


"DU" EXIT:P1=CC<>0 


C^L12550 


001490 


30F 




1256 
1257 


* *___ . 


SH 


LIMK 


RETURN 


C«L12560 
















C>fL12570 








1258 


**To dib: 


scT in: 


P'JT AN'D OUTPUT TO CONSOLE DEVICE 


C»fL12580 








1259 


* 








C»!i12590 


001492 


D300 


0A10 


1260 


SET KB 


LE 


RO,IO 


GET KEYBCAPD DEVICE 


CWL12600 
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001496 


9410 




1261 






EXB8 


El, BO 


001498 


0610 




1262 






OAS 


P1,E0 


00149A 


4010 


AB16 =004?B4 


1263 






STK 


E1,I0SAVE 


001492 


030F 




1264 
1265 


*_ 




3S 


LINK 
















1256 


* 


TO P 


UT KEYB 


CAED DEVICE IN R 








1267 


* 








0014A0 


4800 


0A2A 


1268 


KBHEAD 


LH 


R0,C0NRADR 


0014AU 


DEOO 


0A2E 


1259 






DC 


BCCONRD 


0014A8 


DSOO 


174A 


1270 






RD 


R0,SINK 


0014AC 


4890 


1T4E 


1271 






LH 


E9,PASFLG 


001430 


4200 


14B0 


1272 






HOP 


* 


0014B4 


2333 




1273 


TT 


•YGET 


BZ 


KBXIT 


0014B6 


D500 


0A48 


1274 






OC 


S0,CONEQ2S 


0014EA 


0304 




1275 


KBXIT 


BB 


R4 


OOliJBA 






1276 
1277 


*_ 




IFZ 


SKBINT-1 
















1278 


* 


TO S 


ET UP KEYEOAED DEV TO B 








1279 


* 














1280 


KBHD 


STK 


RO,HSAVE 








1281 






LH 


RO,CGSEADE 








1232 






LK 


ai,PASFLG 








1233 






BZ 


KBED1 








1284 






OC 


H0,C0NEQ2S 








1285 


KBHD1 


OC 


S0,CONENRD 








1286 






LK 


EO.RSAVE 








1287 






BE 


LINK 








1288 






ESDC 










1289 


♦ — 






















1290 


* 


LIST 


DEVICE 


SET UP ROUTINE 








1291 


* 








0014BC 


5010 


1778 


1292 


SE 


TUP 


STA 


R1,SET-ETK 


0014CO 


D310 


ADF1 =0C42B5 


1293 






LB 


■K1,I0SAVE+1 


0014C4 


9112 




1294 






SLKLS 


El, 2 


0014C6 


4301 


0A10 


1295 






LH 


E0,I0(R1) 


C014CA 


DE01 


0A31 


1296 






OC 


S0,CONC!!D-1(R1) 


0014CE 


5810 


1778 


1297 






LDA 


E1,SET.ETN 


0014D2 


0301 




1298 






BS 


R1 








1299 


if ***** * 


*********************** 








1300 


* 


LOW 


COBE SE' 


T UP ROUTINE 








1301 


* 








C014D4 


2410 




1302 


LCOEE 


LIS 


R1,0 


0014D6 


2422 




1303 






LIS 


E2,2 


0014D8 


C830 


0C4E 


1304 






LHI 


R3,X'4E' 


0014DC 


2400 




1305 






LIS 


R0,0 


0014DE 


4001 


0000 


1306 


ZEB01 


STH 


S0,0(R1) 


0014E2 


Clio 


14D" 


1307 






B7L3 


R1,ZFR01 


0014E6 


C810 


0080 


1308 






LHI 


R1 ,X'80' 


0014EA 


C630 


OOCE 


1309 






LHI 


E3,X'CE' 


0014EE 


4001 


0000 


1310 


ZER02 


STH 


R0,0(E1) 


0014F2 


Clio 


14EE 


1311 






BXLE 


R1,ZES02 


0014F6 


C800 


1572 


1312 






LHI 


R0,XI32 


0014FA 


CS30 


09FF 


1313 






LHI 


E3,X'9FF* 



KB DEVICE 
RETURN 



LIST DEVICE 



READ KODE 



OC CONSOLS - READ COMHAND 

BEAD A DUMSY CHARACTER (SET BUSY) 

PASLA ? 

FOE SPECIAL KB DEVICE 

NO, BRANCH TO EXIT 

YES, OC (REQUEST TO SEND) 

RETURN 



BEAD WITH INT ENABLED 



SAVE 5EGISTEES 
GET KB DEV ADE 
PASLA ? 



CONSOLS : ENABLE, READ 
RESTORE BEGISTEHS 
RETURN 



GET LIST DEVICE IDENTIFIEE 

HW INDEX 

GET LIST DEVICE WRITE ADDRESS 



RETURN 



ZERO CORE FEOK THRU X'4F' 



ZERO CORE FHOS X'80* THRU X'CF' 
INTEEEUPT HANDLES ROUTINE 



CHL12610 
C>'L12620 
CKL12630 
C'!L12640 
C*L12650 
CfL12660 
C»?L12670 
C??L12680 
CML12690 
C'»L12700 
CSL12710 
CH112720 
C'<L12730 
C«tL12740 
C''L12750 
C:iL12760 
C!'L12770 
Ci!L12780 
C^L12790 
CWL12800 
C''L12810 
C"L12?20 
C!'L12S30 
CML128a0 
CML12850 
C^L12860 
C'<L12870 
CHL12880 
CKL12890 
CWL12900 
CM112910 
CML12920 
C''L12930 
CML12940 
r.^^L^2950 
C?'L12960 
C''L12970 
C»'L12980 
CKL12990 
C^LIBOOO 

cLiaoio 

CML13020 
CJ<L13030 
C»'L13040 
CrLIBOSO 
C*L13060 
CKL13070 
CLISOSO 

CKLnogo 

CWL13100 
CHL13110 
CWLISISO 
C«L13130 
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001UFE 
001502 
001506 
00150A 
00150E 
001512 
001516 
00151A 

00151E 
00151S 



001522 
001526 
00152A 
00152E 
001532 
001536 
00153A 
00153E 
001542 
001546 
001'^4A 
00154E 
001550 
001554 
001558 
00155S 



4001 0000 
Clio 14FE 
C830 1672 
4030 0036 
C340 167E 
4040 003E 
C830 163C 
4030 004S 

C840 4508 



4040 0086 
C340 4500 
4040 0084 
Cd30 1532 
4030 0096 
C830 16E6 
4030 OOCE 
C830 1718 
4030 0C8E 
CS30 1724 
C340 009C 
2452 

C860 OOAC 
4034 0000 
C140 1554 



00155C 2410 

00155E CB30 1572 

001562 4321 18AA 

001566 0?1F 



1314 


ZE 


;H03 


SIH 


S0,0(R1) 






CML13140 


1315 






BXLE 


ai,ZEE03 


SET UP INT SERVICE POINTS 


R TABLE 


C'«L13150 


1316 






LHI 


P3,II 






CML13160 


1317 






STH 


P.3,X'36' 


ILL INST 1ST NEH PSM LOC 




C'«L13170 


1318 






LHI 


24, MM 






CLmso 


1319 






STH 


E4,X'3E' 


H. S. IHT NEW PSW LOC 




C'*L1?190 


1320 






LHI 


S3,AF 






C''L13200 


1321 






STH 


E3,X'4S* 


AEITHSETIC FAULT NEW PSS : 


L0C(32-BIT) 


CML13210 


1322 


* 








FIXED PT DIVIDE FAULT SEW 


PSW LOC 


C*'L13720 


1323 






LHI 


F4,RSAVE 






CWL13230 


1324 






IFZ 


ADC-2 






C»^L13240 


1325 






LH 


51,M0D32 






CrL13250 


1326 






3NZ 


LCORE32 






CWL13260 


1327 


* 












C"L13270 


1328 


* 


SET U 


P LOW 


COPE FOR 16 BIT 


HACHINE 




C«L13280 


1329 


* 












C^L13290 


1330 






STH 


R4,X'22' 


REG SAVE POINTER 




CXL13300 


1331 






LHI 


83, FP 






C''L13310 


1332 






STH 


B3,X'2E' 


FLOATING PT FAULT INT NEW 


PSV LOC 


C''L13320 


1333 






LH 


R5,PSW2 






C''L13330 


1334 






STH 


E5,X*44' 


HW EXT 1ST NEW PSW STATUS 




CHL13340 


1335 






LHI 


E5,XI16 






C"<L13350 


1336 






STH 


S5,X'46' 


EXT INT NEW PSW LOC 




C!«L13360 


1337 






BR 


LINK 






C«IL13370 


1338 






EKDC 








C!tL13380 


1335 


* 












CfL13390 


1340 


* 


SET UP LOW 


CCEE FOR 32 BIT 


MACHINE 




CML13400 


1341 


* 












C''L13410 


1342 


LC0I!E32 


STH 


E4,X*86' 


REG SAVE POINTER 




C:!L13420 


1343 






LHI 


R4,PSHSAVE 


PPF PSW SAVE AREA 




C*L13430 


1344 






STH 


R4,X'84' 


POINTER 




C«L13440 


1345 






LHI 


R3,PP 






C''L13450 


1346 






STH 


a3,X'96' 


EELOC/PROTECT INT NEW PSW 


LOC 


C'<L13460 


1347 






LHI 


R3,DFF 


DATA FOEHAT FAULT NEW PSW 


(LOC) *** 


C^L13470 


1348 






STH 


H3,X'CE' 


STORE 




Ci'L13480 


1349 






LHI 


R3,SYSQEES 


LOAD ADDRESS 




C''L13490 


1350 






STH 


E3,X'8E" 


STORE 




C'<L13500 


1351 






LHI 


E3,SVCEER 


LOAD ADDRESS 




CWL13S10 


1352 






LHI 


R4,X'9C" 


LOAD START A!)DRESS 




^113520 


1353 






LIS 


R5,2 


LOAD INCREMENT 




C!?L13530 


1354 






LHI 


R6,X'9C*+16 


LOAD END ADDRESS 




C''L13540 


1355 


LC0BE323 


STH 


R3,0(H4) 


STORE 




C^L13550 


1356 






BXLE 


R4,LC0RE32B 


LOO? 




C*L13560 


1357 






IfZ 


$KEINT-1 






C"L13570 


1358 






LH 


P1,C0NRADR 


LOAD CONSOLE I/O ADDRESS 




C«L1?580 


1359 






AAH 


K1,R1 






CyL13590 


1360 






LHI 


E0,KBIST0 


RO = A(KEYB0AFD INT HANDLI 


'.?.) 


CML13600 


1361 






STH 


S0,X'D0'(R1) 


STORE S X'D0'+?(K8 DEV AI 


)R) 


C*L13610 


1362 






ESDC 








C»L13620 


1363 






LIS 


31,0 


TO SET OP SERVICE POINTTTE 


T?BLS 


CXL13e30 


1364 






LHI 


R3,XI32 






C*L13640 


1365 


LC0HE32A 


LH 


R2,DEVSADR(R1) 


GET DEV ADR FROM TABLE 




C*L13650 


1366 






BMR 


LIKK 


DONE. RETURN 




C»'L13660 



zx 


IZ - ETPS S04 


001568 


0A22 


001 56 A 


4032 DODO 


C0156E 


2512 


001570 


2207 


001570 





AAS 


R2,E2 


STH 


R3,X'D0'(B2) 


AIS 


K1,2 


B 


LCCRE32A 


IFZ 


$KEINT-1 



KEYBOARD INTE8EUPT HANDLER 



KBINTO 



KBISTOC 



KEIHTOB 



STRIPS 3200 COSMERCIAL INSTRUCTION SET TEST 06-238 ROO 
(H/CONDITIOHAL ASSEMBLY) 



1367 

1368 
1369 
1370 
1371 
13''2 
1373 
137« 
1375 
1376 
1377 
1378 
1379 
1330 
1381 
1382 
1383 
138U 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
139it 
1395 
1396 
1397 
1398 
1399 

moo 

11401 
1402 
1t03 
11404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
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STORE 3 X'D0'+2(DEV ADR) 



K3INT00 
KBINTOA 



KBIHT1 



KBINr3 



KBINT2 



THI 

BZ 

LB 

CLHI 

BNE 

OC 

SSE 

BIBS 

RDS 

SSE 

THI 

BNZ 

B 

LH 

BZ 

SDB 

SSE 

BFBS 

LDAE 

BNZ 

B 

SSE 

THI 

ETC 

BS 

CLHI 

BNE 

OC 

SSE 

BIBS 

EDE 

B 

STH 

STB 

IFZ 

LH 

BZS 

EHDC 

STH 

STH 

SDR 

BAL 

LH 

BNZR 



R3,X'20' 

KBINT1 

P0,IO 

E0,5 

KBINTOB 

E2,SREADC 

R2,R3 

8,1 

E2,S4 

E2,S3 

B3,X'20' 

KBINTOC 

EETOPSW 

E6,PASFLG 

KBINTOA 

R2,B4 

E2,R3 

8,1 

R4,R4 

SETOPSH 

!CEIKT3 

E2,S3 

S3,X'20' 

3, KBINTOA 

KBINTOO 

R0,5 

KBIST3 

R2,!1BEADC 

E2,E3 

8,1 

P2,a4 

EETOPSH 

E2,ISTDEY 

R3,INTSTA 

ADC-2 

E4,»iOD32 

KBIST2 

RO,OPSH 

R1,0L0C 

E2,R4 

LINK, ECHO 

S9,KBINT 

E9 



IS BREAK KEY DEPRESSED ? 
NO 

IS IT MICEOBL'S ? 
NO, BSANCK 
YES, ISSUE BEAD 



KNOCK DOWN BREAK 

BEEAK STILL THERE ? 
YES, KNOCK IT DOWN AGAIN 
NO, EETDEN ON OLD PSW 
CONSOLE ON PASLA ? 
BRANCH IF NO. 



IGNORE FREER ONLY 



WAIT FOR BREAK RELEASE 

GO TO CGHIiAND yODE 

IS IT MICROBUS ? 

NO, BRANCH 

READ CONMAND TO HICROBUS 



KNOCK DOWN INTERRUPT 

RETURN 



STORE OLD PSV OF 32-BIT PROCESSOR 
IN ORDER TO RETURN SACK TO TEST 

ECHO RECEIVED BYTE 

IF ZESCIGNOEE; ELSE 

GO, PROCESS KB INT FURTHER 



C!?L13670 
CWL136S0 
C'fL13690 
C«iL13'700 
CWL13710 
C»fL13''2C 
C>'L13730 
CWL13740 
C''L13750 
C'?L1?760 
CML13770 
C'«L13780 
C'?L13790 
CYL13800 
CFL13810 
C!?L13S20 
C*!L13830 
CFL13840 
C''L13850 
CWL13860 
CWL13870 

CLnseo 

CWL13890 

cLngoo 

C1L13910 
C''L13920 
C''L13930 
CWL13940 

c^Lisgso 
CLisgeo 

C>'L13970 
^^113980 
CWL13990 
C"L14000 
CML14010 
C'fL14020 
C^L14030 
C''L14040 
C''L14050 
C''L14060 
C«'L14070 
CKL14080 
C''L14090 
C11L14100 
C''L14110 
CWL14120 
CfL14130 
CML14140 
C1'L14150 
CFL14160 
CWL14170 
C!'L14180 
C?fL14190 



SERIES 3200 COMMERCIAL ISSTEUCTION SET TEST 06-238 SOO 
EXEC - ETPE aO« (W/CONDITIOHAL ASSEMBLY) 
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001572 



001572 
001574 
001578 
00157C 
00157C 



001580 
0015811 
001536 
001568 
00158C 
001590 
001592 

ooisqf* 

001594 



001598 
00159C 
00159E 
0015A2 
0015A6 



95AA 

UOAO 173H 

lt020 17414 

D230 1746 



4000 173A 
1008 
1008 

4000 1738 
4010 173E 
1013 
1016 
4010 173C 



4820 0A54 

9512 

DOOO AD16 =004288 

4B20 1744 

48A0 1734 



1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
144 3 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1458 
1469 
1470 
1471 
1472 



rO RETURN ON OLD PSW 



RET0P5W 



IFZ 
LH 
BSZ 
L»! 



ADC-2 
S9,I!0D32 
EET0PSW1 
R0,INTSAV 



RESTORE REGISTERS 

RETURN OS OLD PSW AFTER KB INT 



LPSW X'40' 

* 

RET0PSW1 LPSH 0PSW32 

ELSE 
RKTOPSW LPSW 0PS'(J32 

ENDC 

EN DC 

*************************************************** 



EXTERNAL INTERSUPT HASDLFF 



XI16 



XI 3 2 



XI32A 



IFZ 


ADC-? 


STK 


RO,INTSAV 


ACKR 


32, R3 


IFZ 


SKBINT-1 


CLH 


R2,C0NRADR 


BE 


KBINTO 


ENDC 




EKDC 




EPSE 


RIO, RIO 


STH 


aiO,IHTPSW 


STH 


R2,ISTDEV 


STB 


P3,INTSTA 


IFZ 


ADC-2 


LH 


S5,»!0D32 


BSZ 


XI32A 


LH 


R0,X'40' 


LH 


R1,X'42" 


ENDC 




STH 


30,0PSW 


SRLS 


R0,8 


SPLS 


R0,8 


STK 


R0,C?SW32 


STH 


R1,0L0C 


SRLS 


R1,3 


SBLS 


ai,8 


STH 


E1,OLOC32 


IFZ 


ADC-2 


LDAR 


H5,P5 


BZS 


XI16A 


ENDC 




LH 


R2,PS5I2 


EPS?. 


51,32 


STK 


E0,INTSAV 


LH 


F2,IHTDEV 


LH 


P10,INTPSH 



FOR 16-BIT PROCESSOR 
ACKNOWLEDGE THF INTERRUPT 

FROM KEYBOARD DEVICE ? 



FOR 32-BIT PROCESSOR 
CAPTURE CURRENT PSW 

STORE INTERRUPTING DEVICE ADDRESS 
STORE INTERRUPTING DEVICE STATUS 



16-BIT OLD PSW 



STORE LS HW 
SCALE 
SCALE 

STORE MS H« 
STORE LS HK 
SCALE 
SCALE 
STORE MS HW 

M0D32 = ? 
BRANCH IF YES. 



SELECT USSR REGISTER SET 
SAVE USER REGISTERS 



CML14200 
CML14210 
CML14220 
CML14230 
C*;L14240 
C''L14250 
CKL14260 
CML14270 
CM114280 
rwL14290 
CrL14300 
CML14310 
CML14320 
CML14330 
C''L14340 
CML14350 
C''L14360 
CML14370 
C''L14380 
CML14390 
C''L14400 
C''L14410 
C''L14420 
C«fL14430 
C''L14440 
CWL14450 
C»'I14460 
C''L14470 
C>'L14480 
CML14490 
C'«L14500 
CML14510 
CML14520 
CML14530 
C>'L14540 
C'fL1455C 
CfLUSeO 
CrL14570 
CML14580 
C''L14'=;90 
C»IL14500 
C«'L14610 
C''L14620 
C''L14630 
C'5L14640 
CXL14650 
CKL14660 
C«L14670 
C»'L14680 
CWI14590 
C'!L14700 
CML14710 
C^L14720 



SZ3IES 3200 COM55EECIAL INSTRUCTION SET THST 06-238 EOO 
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£C - ETPE EOii 



(W/CONDIIIONAL ASSEMBLY) 



0015AJ. 


2450 




0015AC 


4865 


18AA 


00152: 


4210 


15FE 


OOlSBi^ 


0562 




001EH6 


2333 




001556 


2652 




OOlSEi 


220? 




0015EC 


4865 


18AC 


0015C0 


4330 


15FE 


0015C« 


4060 


15fC 


001?CB 







ooi5ce 

0015CA 
001SCC 
0015D0 
0015D4 

0015DS 
0015D8 
0015DC 
0015DE 
0015EO 
0015E4 
0015EB 
0015EA 

*0015EE 
0015FO 

*0015F4 

0015F6 
0015FA 



0015FE 
001602 
001606 

00160A 



00160E 



1051 
10A4 

C4A0 OOOF 
D4A5 18AE 
4230 150E 



4860 173C 

1163 

1168 

4550 173E 

C550 11BC 

2187 

C560 11D0 

2334 

D100 AF14 =004508 

2303 

D100 ACBE =0042B8 

4300 15FA 

0000 15FC 



C860 4634 
4060 17A2 
41F0 105A 

4300 0B7E 



CB60 4636 



1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 



XI16A 
XI1 



XI2 



XI3 



XI4 



XI5 



XIEXIT 



LIS 

LH 

3H 

CLAR 

3ES 

AIS 

B3 

LH 

BZ 

STH 

IFZ 

IFKZ 

LH 

BZ 

SNDC 

ENDC 

SRLS 

S8LS 

NHI 

CLB 

3NE 

IFNZ 
LH 

SiLS 

SLLS 

OH 

CLHI 

31 S 

CLHI 

3NL 

LM 

3 

ENDC 

L« 

NOSQZ 

B 

SCUEZ 

EQ'J 



R5,0 

R6,DEVSADRCS5) 

XIEE5 

R6,R2 

XI2 

F5,2 

XII 

E6,DEVINT(R5) 

XIERR 

R6,XIEXIT 

ADC-2 
$CL0CK-2 
R6,«0D32 
XI3 



S5,1 

RIO, 4 

R 1 , 1 5 

R10,INTLVL{R5) 

LVLESE 

$ClQCK-2 

S6,010C32 

E6,8 

R6,8 

R6,0L0C 

E6,STIliER1 

XI4 

R6,$TIXXT 

XI4 

EO,RSAVE 

XI5 



RCIKTSAV 



GET DEV ADES FROM TABLE 

TABLE OVERFLOW. 

COSPARE IHTERSUPTING DEVICE ADDRESS 



GET INTERRnPT HANDLER ADDRESS 
INTERRUPT HOT EXPECTED 



XI5+2 
* EXTERNAL INTERRUPT ERROR RGUTIN 



XIEBR 



LHI 
STH 
BAL 



E6,C'F4' 
R6,ERRN0 
LINK,EBEALL 



**DEyiCE INTER 
LVLERR LHI 



0PTIN1 

HUPTED IN WRONG INTERRUPT LEVEL 
R6,C'F6' EHROS # F6 



32-BIT ?!ACHINE ? 
BRANCH IF NO. 



CHECK PROPER INTERRUPT LEVEL 



GET as HH OF INTERRUPT PSW 

SCALE 

SCALE 

GET LS HW OF INTERRUPT PSW 

WAS INTERRUPT IN TIMER ROUTINE ? 

BRANCH IF NO 

YES, RESTORE FEOM 'TIBER' ENTRY 



RESTORE FR05 XI16/XI32 ENTRY 

AND GO TO INTERRUPT HANDLER 
NOTE: 16 KB RESTRICTION ! 

ERROR # F4 

•ERROR XXF4', 'DEV DDD STA SS • 
•PSW PPPP LOC ILL!" 
TO ENTER COHMAND ^ODE 



CSL14730 
CFL14740 
CI5L14750 
C!»L147fiO 
CWL14770 
C'«I14780 
C>'L14790 
C''L14800 
C«L14810 
CfL14B20 
C«L14830 
C''L14840 
C'?L14850 
C'fL14360 
C''L1487Q 
C''L14880 
CWL14890 
C«'L14900 
CW114910 
C»'L14920 
CML14930 
C'fL14940 
^5114950 
C''L14960 
^"114970 
C1L14980 
CHL14990 
C>fL15000 
C?«L15010 
CrL15020 
CfLISOSO 
C''L15040 
C»'I15050 
CfL15060 
C'?L15070 
C!"I15080 

CfLisogo 

CML15100 
CIIBIIO 
CHL15120 
CWL15130 
C!«I15140 
C«L15150 
C''L15160 
C''L15170 
C''L15180 
C«L15190 
C''L1'=200 
CWL15210 
^115220 
CWL15230 
CKL15240 
CfL15250 
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001612 4050 17A2 

001516 D3AA 1780 

00161A D2A0 1807 

00161E 41F0 loss 

001622 CB50 17F2 

001626 4050 1758 

00162A 41F0 1222 

00162E 4300 0B7E 



00162E 



001632 C320 4635 
001636 4020 17A2 
*00163A 2305 



00163R 



00163C 

001640 
001640 



001644 
001648 
00164A 
00164C 
001650 
001654 
001656 
001658 
00165C 
001560 
001662 
001666 
00166A 

ooieeE 



C?20 4631 
4020 17A2 



4020 173J 
10S8 
10E8 

40^0 1738 
40F0 173E 
10F8 
10FS 

40F0 173C 
4800 0A5U 
9520 

41F0 QFEO 
40F0 1753 
4120 IIjC 
4 3 00 0S7E 



1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1S38 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

155 2 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 



STH E5,EERN0 

LB S10,HEXTAE(R10) 

STB EIO.ERRLVL 

BAL LINK,ERRALL 

LHI ?5,INTLVLS 

STH E5,ISITEaR 

BAL LINK, PRINT 

3 0PTIN1 

SPURIOUS INTEHSUPT HANDLERS 



CONVERT TO ASCII 

AND STORE ERROR LEVEL IN HESSAGE 
•ERROR XXF6', "DSV DDD STA SS' 
■PSH PPPP LOC ILLL' 

SET FLAG TO OVERRIDE NOKSG OPTION 
•INTERRUPTED IN LEVEL N" 
ENTER COMMAND MODE. 



IFZ ADC-2 
FLOATING-PT ARITH FAULT INT TRAP (16 BIT PROCESSOR) 



FP LH S14,X'28' 
LH E15,X'2A" 
ENDC 

* 

* RELOCATION/PROTECTION INT TRAP 



RP 



LHI P2,C'F5^ 
STH R2,EREN0 
B COKH 



OLD PSW (16-BIT PROCESSOR) 

OLD ICC 



SET F5RCS # F5 



ARITHMETIC FAULT INT (32-BIT PROCESSOR) TRAP 

IFZ ADC-2 
FIXED-PT DIVIDE FAULT INT (16-BIT PROCESSOR) TEA^ 

ENDC 



AF 



COMM 



CCKM1 



LHI 


E2,C'F1' 


STH 


E2,ERRN0 


IFZ 


ADC-2 


LH 


E2,M0D32 


BNZ 


COSM 


LH 


R14,X'48' 


LH 


R15,X*4A' 


ENDC 




STH 


R14,CPSW 


SRLS 


R14,8 


SELS 


F14,8 


STK 


P14,0PStf32 


STH 


E15,0L0C 


SRLS 


R15,8 


SRLS 


R15,8 


STH 


F15,CLOC32 


LH 


B0,FSW2 


SPSS 


R2,S0 


BAL 


LISK,SRS 


STH 


IINX,ISITEE5 


BAL 


RET,£RHPL1 


B 


0PTIN1 



SET ERROR # F1 



OLD PSW (16-BIT PROCESSOR) 
OLD LOC (16-PIT PROCESSOR) 

STORE LS HW 
SCALE 
SCALE 

STORE MS Htf 
STORE LS HV 
SCALE 
SCALE 
STORE MS HM 

NO INT. , REG SE"^ 15 

PRINT 'ERROR XXFN' 

FORCE PRINT 

PRINT 'PSW PPPP LOC ILLL" 

ENTER COMMAND HODE 



C'*L15250 
C''L15270 
CML15280 
CWL15290 
CML1F300 
CML15310 
C«L15320 
CML15330 
C'<L15340 
^115350 
CML15360 
C'?L15370 
CLISSSO 

CLissgo 

C''L15400 
C"L15410 
C«L15420 
C»L15430 
C''L15440 
CXL15450 
C^L15460 
C''L15470 
CML15480 
CML1=490 
CML15500 
CLISSIO 
CML15520 
CWL15530 
CML15540 
C'«L15550 
C'<L15560 
CyL15570 
CML15580 

CLissgo 
c^Liseoo 

CML15610 
C^L15620 
CML15630 
CML15fi40 
CML15650 
CML15660 
CVL15670 
CVL15680 
C''L15690 
C^LI'^-'OO 
CLISTIO 
C>^L15720 
C''L15730 
CWL15740 
C»!L15750 
CMI15760 
CML15770 
CML15780 
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001672 C320 !4632 
001676 4020 17A2 
001676 



00167A 



4300 1644 



00167E 


95AA 




001680 


C820 


4633 


001684 


4020 


17A2 


001638 


4320 


1732 


*00168C 


2139 




0016SE 


43E0 


0038 


001692 


48F0 


0b3A 


C01696 


C3E0 


0001 


*00ie9A 


213B 




♦00169C 


230E 






0000 


169E 


00169E 


48E0 


0022 


0016A2 


43F0 


0026 


0016A6 


5820 




0016A8 


0040 




0016AA 


223A 




*0016AC 


2112 




0016AE 


230S 




0016B0 


4320 


0A56 


001634 


95A2 




001S36 


2200 




0016B8 


C4E0 


FFFO 


0016BC 


C4A0 


OOOF 


0016C0 


06EA 




0016C2 


40E0 


173A 


0016C6 


10ES 




0016C8 


10E8 




0016CA 


40E0 


1738 


0016CE 


40F0 


173E 


0016D2 


10F8 




0016D4 


10F8 




0016D6 


40FO 


173C 


0016DA 


41E0 


0A9C 


0016DE 


DE30 


0A2F 


0016E2 


4300 


165C 



1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1S02 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1524 
1625 
1626 
1627 
1623 
1629 
1630 
1631 



* ILLEGAL ISSTEUCTIOR ISTEFRUPT TRAP 



II 



II32 



LHI 


R2,C'F2' 


STK 


B2,FEBN0 


IFZ 


ADC-2 


LK 


E2,M0D32 


BNZ 


II32 


LH 


S14,X'30' 


LH 


E15,X'32' 


ESDC 




B 


COKS 



SET FFECR # F2 



OLD PSW 
OLD LOC 



MACHINE MALFUNCTION ISTFEEUPT TRAP 



KM 



NOT3200 



MH32 



LOCKUP 



MMCOM 



EPSR 

LHI 

STH 

LH 

BNZ 

LH 

LH 

THI 

BNZ 

B 

ECU 

LH 

LH 

DCX 

DCX 

BZS 

BK 

3S 

LH 

SPSS 

DC 

NHI 

NHI 

OAE 

STH 

SELS 

SELS 

STH 

STH 

SSIS 

SELS 

STF 

BAL 

OC 

3 



E10,E10 

S2,C*F3' 

a2,EEEN0 

E2,K0D32 

BM32 

E14,X'38' 

R15,X'3A' 

R14,X'V 

LOCKUP 

HMCOM 

E14,X*22' 

E15,X'26' 

5820 

40 

N0T3200 

LOCKUP 

SSCOK 

E2,PSW3 

E10,S2 

X'2200' 

E14,X'FFF0* 

S10,X"OOOF' 

E14,E10 

S14,0PSW 

S14,8 

F, 1 4 , 8 

E14,0PSW32 

R15,0L0C 

E15,8 

E15,8 

E15,0L0C32 

RETrSTCON 

R3,C0NMHT 

C0HM1 



CAPTURE SMIN 


T PSW 


SET 


ERROR F3 






STORE 






GET 


FLAG 






SET= 


=32 BIT 






GET 


OLD PSH 


(16 


BIT) 


GET 


OLD LOC 


(16 


BIT) 


TEST I FLAG 






POKFE FAIL 






NOT 


POWER FA 


XL 




GET 


OLD PSW 






GET 


OLD LOC 






T^ 


R2,X'40- 







ZSEO=NOT 3200 
POWER FAIL 
NOT POWEP FAIL 
LOAD WAIT KMF PSH 
SWAP PSW, WAIT WI^ 
BRANCH TO SELF 



'H MMF ENABLED 



STORE LS HW 

SCALE 

SCALE 

STOEE MS HW 

STORE IS HW 

SCALE 

SCALE 

STORE HS HW 

RE-INITIALI7F I/O 

SET WRITE KODE 

PRINT EEEOE MESSAGE 



* DATA FORKAT FAULT INTERRUPT TRAP 



SPECIAL FOE THIS TEST *** 



C*L15790 

CLi'^eoo 

CLI^SIO 
CML15820 
CML1"=830 
CyL15840 
CyL15350 
C>!L15860 
CyL15S70 
C^LISSSO 

c^Lissgo 

CML15900 
C«L15910 
C«L15920 
C»tL15930 
C'?L15940 
CLI'^gSO 
C«L15960 
C^L15970 
CML15980 
CYL15990 
CML16000 
C'>L16010 
C''L16020 
CfL16030 
0*116040 
CWL16050 
C«L16060 
C''L15070 
C™L16080 
CWL16090 
CyL16100 
C^LIKIIO 
C''L16120 
CWL16130 
CfLI'^140 
C*!L16150 
CML16160 
CWL16170 
CfLieiBO 
Ci?L16190 
CT'L16200 
C1116210 
C«L16220 
C"L16230 
CKI16240 
CML16250 
^[116260 
CML16270 
CfL16280 
C?1L16290 
CML16300 
C''L16310 
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PAGE 32 09:37:08 06/08/81 



0016E6 
0015EA 
0016EE 
0016F2 
0016F6 
0016FA 

0016FE 
001702 
00170H 
001708 
0Q170C 
001710 
001711* 



001718 
00171C 
001720 

001724 
001728 
00172C 



C320 4637 
4020 17A2 
50S0 1738 
50F0 173C 
D2D0 1749 
50C0 1740 

4800 0A54 
9520 

41F0 OFEO 
40F0 1758 
41F0 1130 
41F0 3FDA 
4300 0B7E 



C820 4538 

4020 17A2 

4300 1644 

C320 4639 

4020 17A2 

4300 1544 



001730 


0000 




001732 


0000 




001734 


0000 




001738 






001738 


0000 




00173A 


0000 




00173C 


0000 




00173E 


0000 




001740 


0000 


0000 


001744 


0000 






0000 


1744 


001745 


00 






0000 


1746 


001747 


30 




001748 


40 




001749 


03 




00174A 


0000 


0000 


00174£ 


0000 




00175Q 


0000 




001752 






001752 


0000 





1632 
1633 
1634 
1635 
1636 
1637 
1633 
1639 
1640 
1541 
1642 
1543 
1644 
1645 
1645 
164'' 
1648 
1549 
1550 
1651 
1652 
1653 
1554 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1654 
1665 
1665 
1667 
1668 
1569 
1670 
1671 
1672 
1673 
1674 
1575 
1676 
1677 
1578 
1679 
1680 
1631 
1682 
1683 
1684 



DFF 



C0KM2 



LHI 

STH 

ST 

ST 

STB 

ST 

LH 

EPSB 

BAI 

STH 

SAL 

3AL 

E 



E2,C'F7' 

E2,EESN0 

S14,CPSW32 

R15,0L0C32 

R13,FC0DE 

E12,VIHTADES 

H0,PSW2 
R2,E0 

LINK,EBR 

LINK,ISITESR 

LINK,ERRPI1 

LINK.RCODE 

0PTIN1 



SYSQSSS 



LHI F.2,C'FS' 
STH R2,ERRS0 
B COBS 



SVCSR3 LHI B2,C'F9' 
STH R2,EERN0 
B COBM 

****************************** 

* STPE CONSTANTS £ TABLES 



FIRST 
H0D32 
ISTPSW 



DCX 

DCX 

DCX 

ALIGN 8 



0PSW32 


DCX 





OP-H 


DCX 





010C32 


DCX 





OLOC 


DCX 





VIRTADR3 


DCY 





ISTDSV 


DCX 





ERRDSV 


EQU 


INTDEV 


INTSTA 


DB 





ER5STA 


EQU 


INTSTA 


KO?K 


DB 


X'80' 


INCH 


DB 


X'40' 


FCODS 


DB 





SINK 


DC 





PA3FL3 


DCX 





PASFLG2 

** 


DCX 






SET EEROS F7 

SAVE OLD PSK 

SAVE OLD LOC 

SAVE REASON CODE 

SAVE ADDRESS (BOUNDARY FAULT) 



NO INT, REG SET 15 
PRINT 'ERROR XXFN' 
FORCE PRINT 
PRINT 'PSW PPPPPP 
PRINT REASON CODE 
ENTER COM»?AND ??ODE 



XOC LLLLLL ' 



IFZ $KBINT-1 

KBIST DC Z(RETOPSW) 

ENDC 

BSKVECr DC Z(0) 



LOAD ERROR CODE 

STORE 

PRINT 

LOAD ERROR CODE 
STORF 

PRINT 



FLAG FOE 32-BIT !«/C( NON-'^ERO) 
(FOR 32-BIT H/C ONLY) 



OLD PSS STORAGE AREA 



INTERRUPTING DEV ADR 
EEROS DEVICE # 
INTEREOPTING DEV STATUS 
ERRONEOUS ST»TUS 



FAULT REASON CODE 

BIT BUCKET 

SET WHEN CONSOLE ON PASLA/PALM 

SET WHEN LIST DEVICE ON PASLA 



KEYBOARD INT RETURN ADR 
BREAK KEY VECTOR 



CWL16320 
CfL15330 
C1L15340 
CHL16350 
C>'L16360 
CWL1637C 
C"L1638C 
CWL16390 
C^I15400 
C'«L1''410 
C'«L15420 
C'«L16430 
€"115440 
^•116450 
CWL16460 
CKL15470 
C'?L164P0 
Ci'L15490 
CKL15500 
CT^L15510 
C^L15520 
C11L15530 
CML16540 
CfLieSSO 
C!!L16560 
CfL16570 
C:fL16580 
C''L16590 
CyL16500 
CWL16610 
CfL16620 
CWL16530 
C»L16540 
CfL15650 
CLISSSO 
CtL15670 
C'!L15680 
C'^L15690 
C'Lie'TOO 
CLie^lO 
C»L16-720 
CVL15730 
CM116740 
CVL16750 
C«L15760 
€"115770 
€"116780 
rMLi5790 
€"115800 
C>fl15810 
C?!116S20 
CS«115830 
CKL16840 
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EXEC 



2TPE EOi» (S/CCSDIIIONAL ASSEMBLY) 



00175tt 


0000 




001756 


0000 




00175S 


0000 




Q0175A 


0000 




00175C 


0000 




00175E 


0000 




ooi^eo 


0000 




001''62 


0000 




00176« 


0000 




001765 


0000 




001768 


0000 




00176A 


0000 




00176C 


0000 




00176E 


0000 




001770 


0000 


0000 


001774 


0000 


0000 


001778 


0000 


0000 


00177C 


0000 


0000 


001780 






001780 


3031 


3233 


001788 


3839 


i»m2 



001790 
001798 

00179A 
0017A2 
0017AM 



0017A6 
0017AE 
0017B4 
0017B6 
0017BE 
0017C0 
0017C8 
0017CE 



0017D0 
0017D8 

0017DA 
0017E2 
0017EA 
0017F0 



■51)1)5 
ODOO 
0000 
D552 
2A2A 
0000 
0000 
0000 
5D4F 
54aF 
ODOO 
l)Ei*F 
ODOO 
Dt)i)5 
'5354 
0000 
0000 
0000 
0000 
l»445 
ODOO 
0000 
5053 
2020 
2A2A 
ODOA 



535D 2020 2A2A 

1796 

524F 5220 2A2A 



17A0 

17A2 

541)1 4C20 2020 

5445 5252 

2045 5252 4F52 

5620 2A2A 2ft20 
4120 2A2A 

17C4 
17C8 
17CC 
5620 2ft2A 2A20 

17D4 

5720 2a2A 2A2A 
202G 4C4F 4320 
2li2a 2020 



1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 

1708 
1709 
1710 
1711 

1712 
1713 



1714 
1715 
1716 



1T17 
171S 



1719 
1720 
1721 
1722 

1723 
1724 



BBKFLG 

PRTFLG 

ISITESR 

NOEHE 

SELTST 

MASDU 

WASDU1 

TOTAL 

TOTESH 

BTESTNO 

COUNT 

NEXIST 

$SUL1 

FA'JSE 

OCT.SAV 

BSK.SAV 

SET.RTN 

COMRET 



DECTAB 
HEXTAB 



DCX 
DCX 
DCX 
DCX 
DCX 
DCX 
DCX 
DCX 
DCX 
DCX 
DCX 
DCX 
DCX 
DCX 
DAC 
DAC 
DAC 
DAC 

IFZ 
DC 

ENDC 
D3 






















SDECTAB-1 

1 ,10,100,1000,10000 

C'0123456789ABCDE?* 



HIGHEST SELECTED TEST 4 
1 IF KEYBOARD DEVICE WAS OFF 
KOS-ZERO IF TOTAL, TOTERS TO PRINT 
« OF TIMES THE SELECTED TESTS RUN 
TOTAL ERRORS DETECTED WHILE DIT 
CURRENT TEST # IN BIHASY 

NEXT TEST S 

SULL HH FOR DISPLAY USE 

SET DURING TRANSMISSION PAUSE (C300) 

OUTCHS RETURN ADDRESS SAVE 

TSTBRK RETURN ADDRESS SAVE 

SETUP RETURN ADDRESS SAVE 

ERECOB RETURN ADDRESS SAVE 



* ETPE MESSAGES 

TSTHSG DC C'TEST **',X"0D00' 

MTESTNO EQU TSTMSG+6 

SRRSSG DC C'ERROR **** ' ,X' ODOO* 



ETESTHO EQU ERSMSG+6 STORED BY ETPE 

ERRHO EQU EEEMSG+8 STORE EERNO AS CHAR CONSTANT 

TOT«SG DC C'TOTAL TOTERE' ,X' ODOO " 



H0E8HSG DC C'NO EBROE ' ,X' ODOO ' 
OEVMSG DC C'DEV *** STA **",X'ODOO' 



ASCIDEV EQU 

STASSG EQU 

ASCISTA EQU 

DEVMSG2 DC 

ASCIDEV2 EQU 
PS«fSG DC 



DEVMSG+4 

DEVHSG+8 

DEVMSG+12 

C'DEV ***',X'ODOO' 



DEVMSG2+4 
C'PSM **** 



ICC 



',X'OD0A' 



C'"L16850 

CfLieseo 

CyL16870 
CML16880 
CML16a90 
CML16900 
CKLIfiQIO 
C''L16920 
CML1fi930 
CKL16940 
CML16950 
CML16960 
CML1S970 
CML1f;980 

cLifiggo 

C''L17000 
CWL17010 
^"117020 
CKL17030 
CML17040 
CKL17050 
C''L17060 
CWL17070 

CFL17080 
CWL17090 
CML17100 
C»?117110 

C''L1712C 
CML17130 



C''L17140 
CML17150 
CWL17160 



C^L17170 
C''L17180 



C''L17190 
^117200 
C''L17210 
CML17220 

CyL17230 
CML17240 



SE3ISS 3200 COMKEBCIAL INSTRUCTION SET TEST 06-233 BOO 
EXEC - ETPE R04 ( W/CONDITIOHRL ASSEMSLY) 
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0000 


17DE 






1725 


ASCIPSW 


sau 


PSWHSG+4 




0000 


17E6 






1726 


LOCMSG 


EQO 


PSWSSG+12 




0000 


17EA 






1727 


ASCILOC 


EQU 


PSWaSG+16 


0Q17F2 


4942 


5445 


5252 


5550 


1728 


INTLVLM 


DC 


C'INTEERUPTED IN LEVEL *',X'0D00' 


0017FA 


5445 


4420 


494E 


204C 










001802 


4556 


454C 


2Q2A 












001808 


ODOO 


















0000 


1807 






1729 


EH3LVL 


EQU 


ISTLVLH+21 


00180A 


454E 


4420 


4F46 


2054 


1730 


EOTKSG 


DC 


C'EfTD OF TEST" ,X*0D00' 


001812 


1553 


5420 














001816 


ODOO 
















001818 


3F0D 








1731 


QMS5 


DC 


X'3F0D' 


00181A 


2A0D 








1732 


AMSG 


DC 


X'2A0D' 


00181C 


FFFF 








1733 


3SKBS5 


DCX 


FFFF, FFFF 


00181E 


?F^F 
















001820 


FFFF 








1734 




DC 


X • FFFF", X" FFFF VC'BBEAK TERWINATI 


001822 


FFFF 
















001824 


4252 


4541 


4B20 


5445 










0Q182C 


324D 


494E 


4154 


4941= 










0Q183U 


4E20 
















001836 


FFOD 

















€"11^250 
C>?L17260 
C!<L17270 
CK117'80 



C«L17290 
C?!LT'300 



CyL17310 
C''L1''320 
CML1733n 

CHL1''340 
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EXEC - ETPE E04 ( K/CONDITIONRL ASSEMBLY) 

1736 * C1L17360 

1737 * OPTION/COHKAND TABLE C''L17370 

1738 * CWI17380 
0000 1838 1739 OPT SQU * C»iL17390 

001833 5445 5354 2020 1740 TEST DC C'TEST " ,X' 7F00' ,X' 0000 ' ,X ' 0000' CML17400 

00183E ■'EOO 

001840 0000 

001842 0000 

001844 4C4F 4F50 2020 1741 LOOP DC C'LOOP ' ,X* 0000 ' ,X' 0000 ' ,X ' 0000* C?'L17410 

001 84A 0000 

00184C 0000 

00184E 0000 

001850 434F 4E54 4941; 1742 CO.-iTIN DC C 'COSTIN' ,X' 0000 ' ,Z(ZE50NE) ,X ' 0000 ' CML17420 

001856 0000 

001858 OD90 

00185A 0000 

OOieSC 4E4F 4D53 4720 1743 KO«SG DC C • fiOBSG ' ,X ' 0000 ' ,Z(2SS0NE2) ,X ' 0000 " C»!117430 

001862 0000 

001864 0D38 

001866 0000 

001868 5049 4341 4452 1744 PICADH DC C ' FICADE ' ,X' 006C' ,X'0000 ' ,X ' 0000* CHL17440 

00186E 006C 

001870 0000 

001872 0000 

001874 494E 544C 4556 1745 ISTLEV DC C ' INTLEV ,X* 0000' ,Z(LE¥EL) ,X' 0000 • CWL17450 

00187A 0000 

00187C ODAO 

00187E 0000 

CfL17460 

C«!L17470 

0000'1880 1748 0PTEND2 EQU * END OF PRINTING OPTIONS CML17480 

CWL17490 
C 'OPTION' ,X"0000' ,X' 0000' ,X' 0000' CML17500 

1751 OPTENT) EQU OPTION CML17510 

1752 * C''L17520 

1753 EUH DC C ' RUN ' ,X' 0000 ' ,X' 0000 ' ,X ' 0000' C}!L17530 

1754 CON DC C'CON ' ,X' 0000 ' ,Z (STOP.IT) ,X' OOCC ' C''L1"'540 

END OF OPTION TABLE C;!L17550 

C'?L17560 
CJ;L17570 

FETDRN C"L17580 

CWL17590 
CWL17600 
CKL17610 



001880 


4F50 


5449 


4F4F 


001886 


0000 






001888 


0000 






ooiesA 


0000 








0000 


1880 




00188C 


5255 


4E20 


2020 


001892 


0000 






001894 


0000 






001896 


0000 






001898 


434? 


4E20 


2020 


00189E 


0000 






0018A0 


ODAA 






0018A2 


0000 






0018A4 


FFFF 


FFFF 






0000 


18A8 




0018A8 


030F 






0018AA 


FFFF 






0018AC 


0000 







1746 


* END OF ETPE FILE 


1747 


NOSQZ 


1748 


0PTEND2 EQU 


1749 


* 


1750 


OPTION DC COP' 



1755 




DC 


-1 


1756 


* 






1757 


INIT 


EQU 


* 


1758 




BR 


LINK 


1759 


* 






1760 


DEVSADE 


DC 


X'FFFF' 


1761 


DEVINT 


DC 


X'OOOO' 
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EXEC - ETPE SOU ( K/CCRDITIONAL ASSEMBLY) 



001EAE 00 
001 SAF 00 



1762 


INTLVL 


DB 


1763 




DB 


175lt 


* 




n65 


* 




1765 


TITLE 


DC 



" CKI17620 

* C'»L17630 

CiLnetO 
CLT'SSO 

OOieBO 5345 52U9 U553 203? 1765 TITLE DC C'SEP.IES 3200 COMMERCIAL INSTRUCT'ICN S-^T TES'^' r»fL17660 

001838 3230 3020 H3itF 4D4D 

0018C0 4552 4349 414C 204S 

0018C8 4E53 5452 5543 544? 

0015D0 4F4E 2053 4554 2054 

001SD8 4553 5420 

0018DC 2020 3036 2D32 3338 1767 DC C 06-238 SOO •,X-0D00- C''L1767n 

0018S4 2052 3030 2020 2020 

0016EC 2020 2020 

0O18F0 0000 

0013F2 7?00 1768 DEFTESTS DC X ' 7F00 ' ,X • 0000 ' ,X ' 0000 ' rML17'^80 

001BFU 0000 

0018F6 0000 

001&F8 0003 1769 I'AXTST DC H'S* 



C'<L17690 
C*!L17700 



''°''^^'- '^TIO ALIGN ADC XANDA'^ORY TARGET 32 ' ^ ^..^^^ 

0016FC 0000 0000 1771 TESTS DC DUMSY FOR TEST C''117710 

001900 0000 1920 1772 DC TEST1 ,TEST2,TEST3, T3ST4, TESTS, TEST6 ,TEST7 CLITToo 

001904 0000 1B64 i- i ■ -:v. 

001903 0000 1CC4 

00190C 0000 1F0Q 

001910 0000 21D4 

001914 0000 241C 

001918 0000 2666 

00191C 0000 2900 1773 DC TESTS OPTIONAL TES"" 8 CWL17730 

^'''"* * ^^17740 

'''''^5 * CML17750 



;3Sr£S 3200 COKMEECIAL INSTRUCTIOS S£ 
;2R03 CODf; LISTING 



TEST 06-238 HOC 
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Mil 
177S 
1779 
1780 
17S1 
1782 
17?3 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
179IJ 
1795 
1796 
1797 
1798 
1799 
1800 
1B01 
1802 
1803 

isca 

1805 
1806 
1807 
1808 
1609 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1813 
1819 
1820 
1321 
1822 
1823 
18211 
1825 
1826 
1827 
1828 



* ERROR 

* NUMBER 



TTF1 
TTF2 
ITF3 
TTF4 
TTF5 
TTF6 
TTF7 



* SFRQR 

* N'UMBKR 



TT10 
TT1 1 
TT12 
TT13 
TT1U 
TT15 
TT16 
TT17 
TT1B 



ASSOCIATED 
IKSTHUCTION 



EXPLA^'ATIOS 0? E3SC? 



ALL 
ALL 
ALL 
ALL 
ALL 
ALL 
ALL 



32 BIT RRITHKETIC FAULT INT 

ILLEGAL INSTRUCTION INT 

MACHINE MALFUNCTION INT 

UNEXPECTED EXTERSAI DEVICE INT 

32 BIT REIOCATIOK/PSOTECTIOK INT (HAC OR MMU) 

EXF EXTFRNAL DEVICE INT IN WRONG INT LEVEL 

DATA FOFKAT/ALIGNHENT FAULT INT 



ASSOCIATED 
INSTRUCTION 



EXPLANATION OF ERROR 



LPB 
LPB 
LPB 
LPB 
LFB 
LPB 
LPS 
LPB 
LFB 



EXP CC = 0000 NOT RETURNED 

EXP CC = 0010 NOT HSTUENED 

EXP CC = 0001 NOT RETURNED 

EX? CC = 0100 NOT RETURNED 

NO DATA FORMAT FAULT 1ST FOR INVALID SIGN 

EXP REASON CODE OF 2 NC^ RETURNED 

NO DATA FORMAT FAULT INT FOR INVALID DATA 

EXP REASON CODE OF 3 NOT RETURNED 

RESULT OF INSTRUCTION INCORRECT 



* ERSOS 

* NUMBER 



ASSOCIATED 

INSTRUCTION EXPLANATION OF SHEOR 



C^L17770 
C'{L17720 
CML17790 
C*^L17800 
C*L178''0 
C^L1 "'?20 
C''L1783'^ 
CML178i40 
C«L17?'^0 

cfLi^seo 

CML17S70 
C''Li7880 
CMI17S90 
CLT^gOO 
CfL1"7910 
C'fL17920 
C«L1793C 
C''L179H0 
CVL17950 
CMLT7960 
CLI "^970 
C«!L17980 
CKL17990 
CLIBOOO 
CLISOIO 
CVL1S020 
CLIflOSC 
CLISOIJO 
C^LISOSO 
C«'L18060 
CML18070 
CML1S080 
C?! 18 09 
C«L18100 
C^LISIIO 
CLI 8 120 
CWL1813C 
CWL1P1H0 
CML18150 

CLisieo 

CWL18170 
C??L18180 
CWL18190 
rML18200 
CyL18210 
C'?I18220 
C»!L18230 
CML18240 
CML1S250 
CML18260 
C'{L18270 
CML18280 



SSHIES 3200 COSHERCIAL IS3XR0CTI0H SET TEST 06-238 ECO 

E8R0S cods; listing 



1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1342 
1843 
1844 
1845 
1S46 
13 47 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1364 
1365 
1866 
1867 
1868 
1869 
1870 
1871 
1372 
1673 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 



TT20 
TT21 
TT22 
TT23 



S5R0R 

NUHBER 



ERROR 
NUMBER 



* TT40 

* 

* TT41 

* 

* IT42 
* 

* TT43 

* TT44 
* 

* TT45 



* ERROR 

* SUHBSa 



STEP 
STEP 
STEP 
STEP 
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EXP CC = 0000 SOT RETURNED 
EXP CC = 0010 NOT RETURNED 
EXP CC = C001 SOT RETURNED 
RESULT OF INSTSUCTIOS INCORRECT 



flSSOCIATED 
INSTRUCTION 



EXPLANATION OF ERROR 



TT30 HOVE EXP CC = 0000 NOT RETURNED 

TT31 SOVE CONTENTS REG 1 INCORRECT (FINAL ADDRESS) 

TT32 MOVE EXP CC = 0100 NOT RETURNED 

TT33 HOVE DATA ERROR 

TT34 HOVE INCORRECT PAD 



ASSOCIATED 
INSTRUCTION 



EXPLANATION OF ERROR 



CPAN 
CPAN 
CPAN 
CPAN 
CPAN 
CPAN 



EXP CC = 0000 NOT RETURNED 

PAD CHAP DOES NO"^ WATCH CONTESTS REG 

EXP CC = 0010 NOT RETURNED 

DEFAULT PAD CHAR DOES NOT MATCH X'20' 

EXP CC = 1001 NOT RETURNED 

INCORRECT OFFSET RETURNED IN REG 1 



ASSOCIATED 
IKSTHUCTION 



EXPLANATION OF ERRO? 



* TT50 



PMV 



EXP CC = 0000 NOT RETURNED 



CfL18300 
CML18310 
CWL18320 
C^Lie330 
C'»L13340 
CKL1S350 
CML18360 
C''L18370 
C»tL18380 
CWL18390 
C«!I18400 
C'!L18410 
CfL18420 
C«L18430 
C''Lia440 
C>'L19450 
C''L1'=I460 
C*L18470 
C''L18480 
C''L184O0 
CWLiaSOC 
CLISSIO 
C>'L18520 

ciissao 

CM118S40 
^118550 
C«L18560 
Cf II 3570 
C"L1858C 
C«t18590 
CML18600 
C?!L18610 
0^113620 

c^Liseso 

C'<t18640 

CLiseso 

C''L18660 
C''L18670 

CLiseso 

C>!L18690 
C5L18700 
CWL18710 
C«L18720 
CWL18730 
C"<I187«C 
0*118750 
C'«L18760 
""L18770 
C'«L18780 
C«'Lie79C 
CMI18800 

cfLiaaic 

CLIBSSO 



SERIES 320O COHHEBCIAL INSTBUCTION SET TEST 06-238 EOO 
EHHO? CODS LISTING 



1883 
1834 
1S8B 
1886 
1887 
1888 
1889 
1690 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1016 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 



TT51 
TT52 
TT53 
TT54 
TT55 
TT56 
TT57 
TT58 



EBEOB 
NUHBES 



TT60 
TT61 
TT62 
TT63 
TT64 
TT65 
TT66 
TT67 
TT68 



* EESOR 

* NUMBER 



TT70 
TT71 
TT72 



PHV 
P?5V 
PHV 
PSV 
PHV 
PMY 
PHV 
PHV 
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EX? CC = 0010 NOT EETUP.SED 

EXP CC = 0001 NOT BETUPNED 

EXP CC = 0010 (FORCED) FOT SETI.TPNED 

SIGK EEBOP 

DIGIT ESROH 

LEADING ZERO FILL NO GOOD 

EXF CC = 0110 NOT RETURNED 

EXP CC = 1010 SOT RETURNED 



ASSOCIATED 

INSTEOCTIOS EXPLANATION OF ERROR 



UHV 
UPV 
UKV 
DKV 
DWV 
0MV 
UHV 
UKV 
UHV 



EXP CC = COOO NOT RETURNED 

EXP CC = 0010 NOT RETURNED 

EXP CC = 0001 NOT RETURNED ■ 

EXP CC = 0010 (FORCED) NOT EETURNED 

SIGK EREOE 

DIGIT EEEOR 

LEADING ZERO (FILL CHAR = X'30") NO GOOD 

EXP CC = 0110 NOT RETURNED 

EXP CC = 1010 NOT RETURNED 



ASSOCIATED 

INSTRUCTION EXPLANATION OF ERROR 



HVTU 
HVTU 
HVTU 



EXP CC = 0000 SOT RETURNED 

CONTESTS REG 1 INCORRECT (FINAL ADDRESS) 

EXP CC = 0100 NOT RETURNED 



CH118830 
CHL18840 
C''L18850 
CWL18860 
CWI18870 
CHL18880 
CHL18890 
CYL18900 
C'?L18910 
CH118920 
CHL18930 
C'«I18940 
CrLISOSO 
CHL18960 
C»'L18970 
C??L1H980 
CHL18990 
CHL19000 
CML19010 
C»'L19020 
CyL19030 
C?5L19O40 
CFL19050 
CWL19060 
CHL19070 
CWL19080 
CHL19090 
CKL19100 
CfligilO 
CVL19120 
CM119130 
CWL19140 
CHL19150 
CML19160 
C»L19170 
C»'L19180 

CLigigo 

CHL19200 
C"'L19210 
C'?L19220 
C''L19230 
CHL19240 
CHL19250 
CHL19260 
C'!L19270 
CHL19280 
C''L19290 
CHL19300 
C^L19310 
C^L19320 
C''L19330 
C¥L19340 
CHL19350 



SERIES 3200 COSHEBCIAL INSTEUCTION SET TEST 06-238 EGO 
EH80R CODE LISTING 



1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1S53 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
19ES 
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TT73 MVTU EXP CC = 1000 NOT SETUENED 

TT74 MVTU EXP CC = 0000 NOT EETURNED - W/ TRANSLATION 

TT75 MVTU CONTENTS P.EG 1 INCORRECT (FINAL ADDRESS) 

- W/ TRANSLATION 

TT76 HVTU EXP CC = 0100 NOT RETURNED - W/ TRANSLATION 

TT77 MVTU EXP CC = 1000 NOT RETURNED - S/ TRANSLATION 

TT78 HVTU DATA EEEOF - W/ TRANSLATION OR W'/O TRANSLATION 



* ER80R 

* NUSBHS 



ASSOCIATED 
INSTRUCTION 



EXPLANATION OF ERROR 



TTSO ST3P IIP FLAG = 0, NO PIC IN'^ 

TT8 1 STBP PIC INT BUT IIP BIT NOT SET 

TT82 STBP IIP BIT NOT RESET IN CURRENT PSW 

TT83 OHV IIP FLAG = 0, NO PIC IN'^ 

TT84 UHV PIC INT BUT IIP BIT NOT SET 

TT85 UHV IIP BIT NOT RESET IN CUEEENT PSW 

TT86 MOVE IIP FLAG = 0, NO PIC INT 

TT87 HOVE PIC INT BUT IIP BIT NOT SET 

TT88 MOVE IIP BIT NOT RESET IN CURRENT PSW 

TT89 CPAN IIP FLAG = 0, NO PIC INT 

TT8A CPAN PIC INT BUT IIP BIT NOT SET 

rT8B CPAN IIP PIT NOT RESET IN CURRENT PSS 

TT8C MVTU IIP FLAG = 0, NO PIC IHT 

TT3D MVTU PIC INT BUT IIP BIT NOT SET 

TT3S MVTU IIP BIT NOT BESET IN CURRENT PSW 

TT3F PMV IIP FLAG = 0, NO PIC INT 

TT90 PMV PIC INT BUT IIP BIT NOT SET 



C«LT9360 
CfL19370 
CLig^SO 
CWL19390 
CML19400 
C''L19410 
CML19420 
C?'L19430 
C''L19440 
CML19450 
CMI19460 
CML19470 
CML19B80 
CML19490 
CML19500 
CML19510 
C'«L19520 
CVL19530 
CML19540 
CLIOSSO 
CML19560 
C''L19570 
CMLigSSO 

cLigsgn 

CML19600 
C'"L19610 
CI'L19620 
CML19630 
CML19640 
CML19650 
CML19660 
CVL19670 
CML19680 
CML19690 
CWL19700 
C»'L19710 
C>'LT9720 
CfL19730 
CML19740 
CML1Q750 
C^L19760 
C''L19770 
C''L19780 
CfL19790 

c^Liqsoo 

C^^LigBIO 
CWL19S20 

CLigsso 

CWL19840 
CLIPSSO 
CML19860 
CML19870 
CML19880 
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EHSOR CODE LISTIHG 

1989 * CN119890 

1990 * TT91 PMV IIP BIT NOT BESET IN CIIB.SENT PStf CF119900 

1991 * Cyi,19910 

1992 * TT92 LPB IIP FLAG = 0, NO PIC INT CHL19920 

1993 * CML19930 
1991 * TT93 LPB PIC INT BUT IIP BIT NOT SET C?L199l*0 

1995 * CH119950 

1996 * TT94 LPB IIP BIT NOT RESET IN CDSSENT PSW C11I19960 

1997 * C'»L19970 

1998 * ' C!fl19980 

1999 * CYL19990 

2000 * CMLSOOOO 

2001 * CfL20010 

2002 * C''L20020 

2003 * C"L20030 



SESIE3 3200 COMHEPCISL INSTRUCTION SET TEST 06-238 BOO 
TEST 1 - LPB 
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0000 1920 

001920 2521 

001922 2531 

00192U 5850 3016 

001928 5860 301C 

00192C I41F0 A85E =00'H8E 

001930 6F20 2DF8 



00193tt 9577 

001936 C470 OOOF 

00193A C570 0000 

00193E 4330 1952 

001942 C3A0 3130 

001946 40A0 17A2 

00194A 40A0 175A 

00194E 41E0 3F94 

001952 41r0 39CA 

001956 2420 

001958 2430 

00195A 5850 3020 

00195E 5860 3024 

001962 41F0 A828 =00418E 

001966 'if20 

00196S 949E 



00196A 9577 

00196C C470 OOOF 

001970 C570 0002 

001974 4330 1988 

001978 C8A0 3131 

00197C 40A0 17A2 

001980 40AO 175A 

001984 41E0 3f94 

001988 41F0 39CR 

0019SC 2420 



2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2045 
2047 
2048 
2049 
2050 
2C51 
2052 
2053 
2054 
2055 
2056 
2057 



* * 

* TEST 1 - LPB * 

* * 

* COBVEET PACKED DECIMAL TO BINASY AND LOAD. * 



******* 



I,***************************-!,******-!,**************** 



********** 



TE3T1 



EQC 



LCS 


82,1 


LCS 


E3,1 


L 


S5,LPB.01A 


L 


R6,LPB.01B 


BAL 


LIHK,BEST3 



LPB 



LPB 32, LPB. 01 
SX1 SOUECE IS ALL ZEROES 



CNVRT2 



EPSR 

NHI 

CLHI 

BE 

LHI 

STH 

STH 

BAL 

BAL 

LIS 
LIS 

L 
L 
BAL 

OCX 
DC 



57, B7 

K7,X'F' 

R7,X'0' 

CSyRT2 

510, CIO- 

R10,ERRN0 

R10,N0ESE 

RET,CCNG 

LINK,LPBCHK 

R2,0 

R3,0 

a5,LPB.02A 

H6,LPB.02B 

LINK,SEST3 



CLEAR DEST REGS 
LOAD RESULT IN REGS 
SAVE INSTRUCTION ADDRESS 



CAPTURE CONDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 0000 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 10 CC=0000 NOT RETURNED 

CHECK DEST REGS 

CLEAR DEST REGS 

LOAD RESULT IN REGS 

SAVE INSTRUCTION ADDRESS 



6F20 
Z(LPB.02-*-2+X'8000' ) 



OP CODE, DEST SKG 



* LPB RX2 SOURCE IS 9223372036854775807 



7FFF FFFF FFFF FFFF 



CSVHT3 



EPSR 

NHI 

CLHI 

BE 

LHI 

STH 

STH 

BAL 

BAL 



H7,S7 

H7,X*F' 

R7,X*2' 

CNVRT3 

310,C'1T 

R10,ERBNG 

EICROEEE 

BET,CCNG 

LINK,LPECHS 



LI5 S2,0 



CAPTURE CONDITION CODE 

HASK TO GET CC 

CHECK THAT CC = 0010 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 11 CC=0010 NOT RETURNED 

CHECK DEST EFGS 

CLEAR DEST PEGS 



CfL20050 
C'»L20060 
C'!L20070 
C'!L20080 
CML20090 
CML20100 
CWL20110 
CML20120 
CHL20130 
C'*L20140 
C?fL20150 
CML20160 
CWL2ni70 
C''L20180 
C'»L20190 
C*'L20200 
C'*L20210 
C''L20220 
^120230 
C«L26240 
CWL20250 
CWL20260 
C!tL20270 
C''L20280 
CfL20290 
CHL20300 
CfL20310 
C'<L20320 
C»L20330 
CKL20340 
C»;L20350 
€"120360 
C!'L20370 
C»!L20380 
CWL20390 
CML20400 
CWL20410 
C>'L20420 
C''L20430 
C!{L20440 
C>'L20450 
CffL204fi0 
CML20470 
C''L20480 
C'(L20490 
C!«L20500 
C'fL20'=10 
CWL20520 
CWL20B30 
C''L20540 
CHL20550 
C1L20560 
CWL20570 



S23ISS 3200 COMMEPCIAL INSTRUCTION SET TEST 06-238 SOO 
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T2ST 1 - LFB 



00198E 
001990 
001994 
001998 

? 00199C 



0019A2 
0019A4 
0019A8 
0019AC 
0019E0 
0019B4 
001938 
0019BC 
0019C0 

0019C4 
0019C6 
0019C8 
0019CC 
0019D0 

7 0019D4 



0019DA 
0019DC 
0019E0 
0019E4 
0019E8 
0019EC 
0019F0 
0019F4 
0019F8 

0019FC 
0019FE 
001A00 
001A04 

001A08 
001A0C 



001A10 
? OOlAItt 



2U30 

5850 3028 

5860 302C 

41F0 ft7F2 



=GOHieE 



6F20 4000 2E18 



9577 

C470 000? 
C570 0001 
U330 19C0 
CSAO 3132 
UOAO 17A2 
40AO 175A 
UIEO 3F9i| 
it1F0 39CA 

2420 

2430 

5850 3013 

5860 301C 

41F0 A7BA =00«13E 

6F20 4000 2E28 



9577 

C470 OOOF 
C570 0004 
4330 19F8 
CSAO 3133 
40A0 17A2 
40A0 175A 
41S0 3F9I4 
41F0 39CA 



2420 
2430 

5850 3018 
5SS0 301C 

E5U0 1A2E 
5040 OOCC 



41F0 A77A =00418E 
6F20 4000 2E38 



2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2058 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2037 
208S 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 



LPB 



LIS E3,0 

L S5,1?B.03A LOAD BSSDLT IN BEGS 

L S6,LPB.03B 

3AL LI;NK,REST3 SAVE IHST8UCTI0H ADDBESS 

LPB R2,LPB.03(HQ,R0) 

RX3 SOURCE IS 9223372036854775807 D = 8000 OOOO 0000 0001 



LPB 



EPSE R7,S7 



CNVRT4 



HHI 

CLHI 

BE 

LHI 

STK 

STH 

BAL 

BAL 

LIE 

LIS 

L 

L 

BAL 



B7,X'F' 

E7,X' T 

CNVST4 

E10,C'12' 

RICERSSO 

R10,N0ERR 

RET,CCNG 

LINK,LPBCKK 

E2,0 

E3,0 

55,LPB.04A 

a6,LPB.04B 

LINK,SE3T3 



CAPTURE CONDITION CODE 

KASK TO GET CC 

CHECK THAT CC = 0001 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 12 CC=0001 NOT RETU#RNED 

CHECK RESULT HFGS 

CLEAR DEST REGS 

LOAD RESULT IN REGS 

SAVE INSTRUCTION ADDRESS 



LPB P2,LPB.04(B0,E0) 

aX3 SOURCE IS 20 DECIHAL DIGITS TO CHECK OVERFLOW 
HAX IS 19 DIGITS TO FILL 64 BITS 



CNVRT5 



EPSE R7,E7 

NRI F7,X*F' 

CLHI S7,X'4' 

BE CNYET5 

LHI S10,C'13' 

STH R10,ERRN0 

STH B10,N0ERS 

BAL RET,CCNG 

BAL LIKK,LPBCHK 



LIS 
LIS 



LA 
ST 



E2,0 
B3,0 

P5,LPB.05A 
R6,LPB.05B 

E4,CNVET6 
R4,X'CC' 



CAPTURE CONDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 0100 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERE FLAG 

ERROR 13 CC=0100 NOT RETURNED 

CHECK RESULT REG? 

CLEAR DEST REGS 

LOAD RESULT IN REGS 

R5 AND R6 = 82 AND E3 = 

LOAD 1ST HANDLER ADR 
STORE FOR INT 



:,OAD 



DATA FORHAT FAULT INT VECTOR WITH CNVET6 ADR 

BAL LIHK,REST3 SAVE INSTEDCTIOS ADDRESS 

LPB S2,LPB.05(R0,R0) 



C'^L20580 
CW12059C 
C?!L20600 
C«L2061C 
C>'L2062C 
CtfL20530 

ci^oeuo 

CKLaoeso 

C]'L20660 
C*'L20670 
C"L20530 
0*120590 
C»'L20700 
C'*L20''10 
C'«L20720 
C''L20730 
CKL20740 
C''L20750 
C>'L20760 
C?!L2077D 
C''L20780 
0^120790 
C''L20800 
CWL20B10 
C?fL20820 
CML20830 
C>1L208«0 
Cr*L20850 
CML20860 
C''L20370 
C"L20380 
C»;L20890 
CKL20900 
C»'L20910 
CML20920 
C''L20930 
C??L20940 
C!5L20950 
C''L20960 
C'«L20970 
C'»I20980 
0*120990 
CKL21000 
C'«L21010 
C'fL21020 
CWL21030 
C''L21040 
CSL21050 
CML21060 
CKL21070 
CHL21Q80 
CWL21090 
C1'L21100 
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001A1A 


C3A0 


3134 


001A1E 


40A0 


17A2 


001A22 


itOAO 


175A 


001A26 


«1E0 


3EBC 


001A2A 


1*300 


1A58 


001A2E 


D2D0 


1749 


001A32 


C810 


30F0 


001A36 


9501 




001A38 


D3D0 


1749 


001A3C 


C5D0 


0002 


OOIAUO 


^330 


1A54 


001A44 


C8!i0 


3135 


001A«8 


40A0 


17A2 


001A4C 


40A0 


175ft 


001A50 


itlEO 


3FDS 


001A54 


l»1F0 


39CA 


001S58 


2l»20 




001A5A 


2430 




001A5C 


5850 


3018 


001A60 


5860 


301C 


Q01A5lt 


08140 


1A8A 


001A68 


4040 


OOCE 



001A6C 
7 001A70 



41F0 A71E =00418E 
6?20 4000 2E48 



001A76 


C8A0 


3136 


001A7A 


4OA0 


17A2 


001A7E 


4OA0 


175 A 


001A82 


41E0 


3EBC 


001A86 


i*3 0G 


1AB4 


001A8R 


D2')0 


1749 


001A8E 


C3ia 


30E0 


001A92 


9501 




001A94 


D3';0 


1749 


001A9S 


C5D0 


0003 


001A9C 


'4330 


15.30 


001AA0 


C3A0 


3137 


001AA4 


40AO 


17A2 



2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2133 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2153 



LPB 



EX3 SOURCE IS 0000 INVALID SIGN 
EXPECT REASON CODE IN H13 = 2 (ISVALID SIGN PACKED) 



CNVHT6 



CNVtiT7 
CNVRT7. 



LHI 

STH 
STH 
BAL 
B 

STB 

LHI 

EPSH 

LB 

CLHI 

BE 

LHI 

STH 

STH 

BAL 

BAL 



P10,C'14' 

R10,EEHNO 

RICNOEER 

RET,LINTNG 

CNVRT7.1 

E13,FC0DE 

R1,X'30F0' 

BO, 81 

E13,FC0DE 

R 1 3 , X • 2 • 

CNVST7 

E10,C'15' 

B10,EEEN0 

RICNOESE 

3ET,ECSG 

LINK,L?BCHK 



1 LIS R2,0 

LIS E3,0 

L 35,LPB.06A 

L S6,LPB.06B 

LHI S4,CNV|iT8 

STK E4,X'CE' 



LOAD EREOE NO 

STORE 

SET EER FLAG 

EEEOE 14 NO INT FOE INVALID SIGN LPB 

SKIP TO NEXT SECTION 

STORE REASON CODE (NOW I}f REGSET 0) 

LOAD ?SW TO RETURN TO SET F 

PSW SWAP AFTER INTERRUPT' 

LOAD REASON CODE (H13 SET F) 

CHECK IF REASON CODE IS CORRECT 

EEASCH CODE OK GO CHECK REGS 

LOAD ERROR NO 

STORE 

SET ERF FLAG 

ERROR 15 REASON CODE 2 NOT RETURNED 

CHECK RESULT REGS ARE UNCHANGED 

CLEAR RESULT REGS 

LOAD RESULTS IN REGS 



LOAD 1ST HANDLER ADR 
STORE FOE INT 



* LOAD DATA F03KAT FAULT INT VECTOR WITH CNVRT8 ADR 

* 

BAL LINK,REST3 SAVE IS3TSUCTI0S ADDRESS 

* 

LPB R2,LPB.06(E0,R0) 



LPB 



RX3 SOURCE IS OOFC INVALID DIGIT DATA 
EXPECT REASON CODE = 3 (INVALID DATA PACKED) 



CNVHT8 



LHI 
STH 
STH 

BAL 
3 

STB 

LHI 

SPSS 

LB 

CLHI 

BE 

LHI 

ST-J 



E10,C'16' 

RIO.ERRNO 

R10,NOEER 

RET,LINTNG 

CNVET9.1 

H13,FC0DE 

H1,X'30F0' 

R0,P1 

E13,FC0DS 

E13,X'3' 

CNYET9 

310,C'17" 

H1G,ERRN0 



LOAD ERROR NO 

STORE 

SET EER FLAG 

ERROR 16 NO 1ST FOE INVALID DATA LPB 

SKIP TO NEXT SECTION 

STORE REASON CODE (SOW IN REGSET 0) 
LOAD FSV TO RETURN TO SET F 
PSW SWAP AFTER INTERRUPT 
LOAD REASON CODE (R13 SE^ F) 
CHECK IF REASON CODE CORRECT 
REASON CODE OK GO TO CHECK REGS 
LOAD ESSOR NO 
STORE 



^"121110 
CML21120 
C?'121130 
C''L21140 
CML21150 
C>fL311'=0 
C«L21170 
C''L21180 
CHL21190 
CHL21200 
CML21210 
CML21220 
CWL21230 
C''L21240 
C'!L21250 
C''L2126D 
C"'L21270 
C«L21^80 
C''L21290 
C^L2130Q 
CVL21310 
CWL21320 
CML21330 
C1'L21340 
C»L21350 
C''L21360 
C''L21370 
CHL213«0 
C''L21390 
C''L21400 
CJfL21410 
C'"L21420 
C^L21430 
C'?L21440 
C''L21450 
CML21460 
CWL21470 
CML21480 
C''L21490 
C>'L21'^00 
CWL21510 
Ci'L21520 
C''L21530 
CWL21540 
CrL215'^0 
C''L21560 
C'fL21570 
C!!L21580 
CnL21590 
CHL21«00 
C*L2iei0 
CML21620 

CL'ieso 



PREVIOUS WARHI.N-i ON PAGE 
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OOlAfiS 
OOlfiAC 
001 ABO 

001A3!* 
001AE8 

001ABC 
001 ABE 
001ACO 
001AC2 
001AC4 
001AC8 
001ACC 

001ADO 



OOlADis 
001AD6 
001ADA 
001ADE 
001AE2 
001AE6 
001AEA 
001AEE 
001AF2 

001AF6 
001AFA 
001AFE 
001B04 
001EOA 

001E0E 
001B10 
001B12 
OOIBIU 
001B16 
001B1A 
001B1E 

001B22 



001B26 
001B28 
001B2C 
001E30 
OOlBSa 
001B38 



aOAO 175A 

U1E0 3FDE 

41F0 39CA 

CatO 16E6 

1*040 OOCE 

24C0 
24D0 
2U20 
2U30 

585D 3030 

586D 3034 

41F0 A6BE 

6F2C 2E58 



=00«18E 



9577 
C470 
C570 
4330 
C3A0 
40A0 
40A0 
41E0 
41F0 



OOOF 
0002 
1AF2 
3131 
17A2 
175A 
3F94 
39CA 



C5C0 0130 
4380 1B0E 
FACO 0000 0010 
FADO 0000 0008 
4300 1AC0 

24C0 

24D0 

2420 

2430 

535D 30D0 

5350 30D4 

41F0 A56C =00418t 

6F2C 2F98 



9577 

C470 OOOF 
C570 0001 
4330 1B4U 
C8R0 3132 
40AO 17A2 



2164 
2155 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 



STH E10,N0ERE 

BAL EET,RCNG 

CNVHT9 BAL LINK,LPBCHK 

CNVRT9.1 LHI B4,DFF 

STH E4,X'CE' 
* 

CNVRT10 LIS R12,0 

LIS SI 3,0 

CNVRT11 LIS H2,0 

LIS S3,0 

L R5,LPB.07A(E13) 

L S6,LPB.07B(K13) 

BAL LINK,aEST3 

LPB S2,LPB.07(E12) 

* 

* LPB SRC FROS TABLE LPB. 07 



EPSR R7,R7 

SHI R7,X*F' 

CLHI P7,X'2' 

BE CNVET12 

LHI R10,C*1V 

STH E10,ERENO 

STH RIO.NQEES 

BAL RET,CCNG 

CNVRT12 BAL LINK,LPBCHK 

* 

CLHI E12,304 

BNL CNVET13 

AI El 2, 16 

AI E13,8 

B CNVET11 
* 

CNVRT13 LIS R12,0 

LIS S13,0 

CNVET14 LIS H2,0 

LIS R3,0 

L R5,LPB.27A(E13) 

L R6,LPB.27B(P13) 

BAL LINK,EEST3 



SET ERE FLAG 

ERROR 17 REASON CODE 3 NOT RETnRNED 

CHECK RESULT REGS ARE UNCHANGED 

LOAD STANDARD IHT HANDLER ADE 
SESTCRE 

ZERO INDEX 

CLEAR RESULT SEGS 

LOAD RESULTS IF REGS 

SAVE INSTRUCTION ADDRESS 

LPB. 26 ALL POSITIVE 

CAPTURE CONDITION CODE 

KASK TO GET CC 

CHECK THAT CC = 0010 

CC OK, CONTINUE 

LOAD ERBOR NO 

STORE 

SET ERE FLAG 

ERROR 11 CC=0010 NOT RETURNED 

CHECK RESULT REGS 

CHECK IF ALL DONE 
DONE, CONTINUF 
INCREMENT SEC INDEX 
INCEEKEKT RESULT INDEX 
LOOP TIL ALL DONE 



ZERO INDEX 

CLEAR RESULT EEGS 

LOAD RESULTS IN REGS 

SAVE INSTRUCTION ADDRESS 



LPB R2,LPB.27(R12) 



* LPB SRC FBOH TABLE LPB. 27 



EPSR 


E7,R7 


NHI 


H7,X'F' 


CLHI 


E7,X*1' 


BE 


CNVBT15 


LHI 


E10,C'12' 


STH 


E10,EBHNO 



LPB. 33 ALL NEGATIVE 

CAPTURE CONDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 0001 

CC OK, CONTINUE 

LOAD ERHOE NO 

STORE 



CSL21640 
C'«I2165C 
C?'L?1660 
CLSie?© 
CSI21680 
C«L21690 
C*L21700 
C«L2171C 
CifL21720 
CWL21730 
C'»L21740 
C>'L21750 
C?!I21760 
^121770 
CKL21780 
C''I2179C 
C'<L21800 
C^L21310 
C'?L21820 
CML21830 
CWL21840 
CWL21850 

CfLJiseo 

CMI21870 
CWL21880 
CWL21890 
CML21900 
CXL21910 
CKL21920 
CWL21930 
C"?L21940 
C';L21950 
CLJigpO 
CWL21970 
CML21980 
C''L21990 
CfL22000 
C?'L?2010 
CrL22020 
C"'L?2030 
C"L22040 
C«L22050 
C>'L2?060 
C«L22070 
C''L22080 
C"L22090 
C'»L22100 
C"'L?2110 
C'«L22120 
CKL22130 
CSL22140 
C!!L22150 
CKL22160 
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TEST 1 - LPB 



001E3C 


HOAO 


175A 




2217 




STH 


E10,N0ESH 


001E40 


41 EC 


3F94 




2218 




BAL 


EET,CCNG 


001B41* 


41F0 


39CA 




2219 
2220 


CNVET15 

* 


3AL 


LINK,LPBCHK 


0Q1B48 


CSCO 


0070 




2221 




CLHI 


E12,112 


001E4C 


4380 


1B60 




2222 




3NL 


CHVET16 


001B50 


FACO 


0000 


0010 


2223 




A I 


E 1 2 , 1 6 


001B56 


FADO 


0000 


0008 


2224 




AI 


B13,8 


001B5C 


4300 


1B12 




2225 
2226 


•k 


B 


CNVET14 


001B60 


4300 


OESA 




2227 

2223 


CHVST15 

* 


B 


TSTEh'D 



SET EPE FLAG 0^122170 

EESOE 12 CC=0001 HOT SETIIBKED CHL22180 

CHECK EESHLT EEG"; C'tL22190 

C?;L22200 
CHECK IF ALL DONE C''L22?10 

DONS, CONTINUF CWL22220 

INCEEHENT SEC INDEX C»L2223C 

INCEEMENT EESULT INDEX C"tL?2240 

LOOP TIL ALL DOSS CBL22250 

C'^L22260 
EXIT TEST 1 CML72270 

CWL22280 



SERIES 3200 CO'!?!EPCISL INSTRUCTION SET TEST 0'^-233 BOO 
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TEST 2 



S7SF 









2230 








2231 








2232 








2233 








2234 








2235 








2236 








2237 








2238 








2239 




0000 


1B611 


2240 
2241 


001B64 


5820 


3018 


2242 


001B68 


5830 


301C 


2243 


001B6C 


C350 


2DF8 


2244 


001E70 


C360 


351C 


2245 


001B74 


li-i^O 


AS15 =004185 


2246 
2247 


001678 


5E20 


351C 


2248 
2249 
2250 
2251 


001B7C 


9577 




2252 


001B7E 


Cit70 


GOOF 


2253 


001B82 


C570 


0000 


2254 


001B86 


1*330 


1B9A 


2255 


001B8A 


C8A0 


3230 


225? 


001B8E 


40AO 


17A2 


2257 


001B92 


i+OAO 


175A 


2258 


C01B96 


U1E0 


3F94 


2259 


001B9A 


itlFO 


3A50 


2260 
2261 


001B9E 


5820 


3020 


2262 


001BA2 


5830 


3024 


2253 


001BA6 


CB50 


2E08 


2264 


001BAA 


C860 


351C 


2265 


001BAE 


41F0 


A5DC =0C418F 


2266 
2267 


0013B2 


6E20 




2268 


OOlBBt 


9966 




2269 
2270 
2271 


001EB6 


9577 




2272 


001BB8 


C470 


GOOF 


2273 


001BBC 


C570 


0002 


2274 


001BCO 


1(330 


13D4 


2275 


OOlBCIt 


C8A0 


3231 


2276 


001BC8 


itOAO 


17A2 


2277 


001BCC 


KOAO 


175A 


2278 


001BDO 


l*1E0 


3F94 


2279 


001BDI* 


l>1'^0 


3A50 


2280 
2281 


f\t\^ -ana 


CQTA 


ryn'ya 


on ai 



********************************************************************** 

* * 

* TtST 2 - STEP * 

* * 

* CONVERT 3INAHY TO PACKED DECIHAL AND STOt^Fl. * 

* * 



TEST2 



EQU 



L 

IHI 
LHI 
BAL 



F2,STB?.01A 

33,STBP.01B 

E5,SSE?.01 

E6,SDEST 

LI»K,BEST3 



STB? E2,SDEST 
* 

* STB? HX1 SOl'ECE IS ALL ZESOES 
EPSR 37,87 



ST0RE2 



NHI 


S7,X'F' 


CLHI 


R7,X"0* 


BE 


ST0EE2 


LKI 


F1C,C'20' 


STH 


aiO,FERNO 


STH 


g10,N0EP5 


BAL 


aET,CCNG 


BAL 


LIN-K,STB?CHK 


L 


R2,STB?.02A 


L 


E3,STB?.02B 


LHI 


E5, SEES. 02 


LHI 


S6,SDEST 


BAL 


LISK,8EST3 



LOAD EVEN EEC SRC 
LOAD ODD SEG SEC 
LOAD EXP RESULT ADR 
LOAD DEST STRING ADE 
SAVE INSTRUCTION ADDRESS 



CAPTURE CONDITION CODE 

SASK TO GET CC 

CHECK THAT CC = 0000 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 20 CC=0000 NOT RETURNED 

CHECK DEST STFING IS CORRECT 

LOAD EVEN REG SRC 
LOAD ODD REG SSC 
LOAD EXP RESULT ADR 
LOAD DEST STRING ADR 
SAVE INSTRUCTION ADDRESS 



DCX 5E20 
DC ZCSDEST-*-2+X'S000' ) 
3TBP RX2 SOURCE IS 7FFF FFFF FFFF FFFF 



OP CODE, SSC REG 



9223372036854775807 C 



EPSR 57, S7 



STORES 



NHI 


R7,X'F' 


CLHI 


E7,X'2' 


BE 


ST0RE3 


LHI 


R10,C'21' 


STH 


R10,EBSN0 


STH 


EICNOEBR 


BAL 


SET,CCNG 


BAL 


LINK,ST3PCHK 



•on OTUD /ra a 



CAPTURE CONDITION CODE 

HASK TO GET CC 

CHECK THAT CC = 0010 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 21 CC=0010 HOT RETURNED 

CHECK DEST STRING IS CORRECT 

T n R n -cvoi Tfcr con 



CSL22300 
C»!I22310 
CKL22320 
CSL22330 
C»[L22340 
C!«L22350 
CfL22360 
CSL22370 
CML22380 
C''L32390 
C''i22400 
C«L22410 
CWL22420 
C»'L22430 
CNL22440 
C^L22450 
CWL22460 
C'fL22470 
C!'L22480 
CfL22490 
C]?L22500 
C"L22510 
C;?L22=;20 
C?L22530 
C'fL22540 
CHL22550 
C''L22560 
CWL22570 
C"L22580 
C'?L22590 
C?'L22600 
C'!L22610 
CWL22620 
C''L22630 
C*L22640 
C'«L22650 
C'*L22660 
C''L22570 
CML22680 
C8L22690 
C»!L22700 
CML22710 
C''122720 
^122730 
C»'L22740 
r«L22750 
CHL22760 
C!<L22770 
CTIL22780 
C»!L22790 
CH122800 
C'"L22810 



SE3ISS 32GG COHHEHCIAL 

TEST 2 - STEP 

OOIBDC 5330 302C 

001BE0 C850 2E13 

0013E4 C850 351C 

001BE8 41F0 A5A2 =00m8E 



? 001BEC 



001BF2 
001BF4 
001BF8 
001BFC 
001C00 
001C0H 
001C08 
001C0C 
001C10 

ooicm 

001C16 
001C18 
001C1C 
001C20 
001C24 
001C28 

001C2C 



001C30 
001C32 
001C36 
001C3A 
001C3E 
001C42 
001C46 
001C4A 
001C4E 
001C52 
001C56 
001C5A 
001C60 
001C56 



001C6A 
001C6C 
001C6S 
001C72 
001C76 
001C7A 



6E20 4000 351C 



9577 
C470 OOOF 

C570 onoi 

4330 1C10 
CSAO 3232 
40AO 17A2 
40A0 175A 

41E0 3F94 
41F0 3A50 

24C0 

24D0 

582D 3030 

583D 3034 

C85C 2E58 

CS60 351C 

41F0 A552 =00418E 



6E20 351C 



9577 

C470 OOOF 
C570 0002 
4330 1C4E 
CSAO 3231 
40A0 17A2 
40A0 175A 
41S0 3F94 
41F0 3A50 
C5D0 0098 
4380 1C6A 
FACO 0000 0010 
FADO 0000 0008 
4300 1C18 



24C0 
24D0 

532D 30D0 

583D 30D4 

C85C 2F98 

C8'iO 351C 



ST0RE4 



STORES 



N*-" m TN »T -^ m X .'* (' C^ TT 



2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 



TEST 06-238 EOO 
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36/08/31 



L R3,STBP.03B 

LHI R5,SRES.03 

LHI E6,SDEST 

BAL LISK,SEST3 



LOAD ODD REG SRC 
LOAD EXP RESULT ADR 
LOAD DEST STRING ADS 
SAVE INSTRUCTIOH ADDRESS 



STBP R2,SDEST(RO,R0) 
* 

* STBP RX3 SOURCE IS 8000 0000 0000 0001 



9223372036854775807 D 



EPSR R7,H7 

NHI E7,X'F' 

CLHI R7,X'1' 

BE ST0EE4 

LHI P10,C'22' 

STH EIO.ERRSO 

STH R10,S0ERB 

BAL SET,CCNG 

BAL LIHK,STBPCHX 

LIS R12,0 

LIS E13,0 

L R2,STBP.07A(E13) 

L E3,STBP.07B(R13) 

LHI H5,SRES.07(R12) 

LHI S6,SDEST 

SAL LISK,BEST3 

STBP R2,SDEST 



* STBP SRC REGS CHECK STBP. 07 



EPSH R7,37 

HHI R7,X'F' 

CLHI R7,X'2' 

BE ST0EE6 

LHI E10,C'21* 

STH R10,ERRH0 

STH R10,NOEBR 

BAL SET,CCNG 

BAL LINK,STBPCHK 

CLHI P13,152 

BNL ST0RE7 

AI E12,16 

AI S13,8 

S STORES 



ST0RE6 



CAPTURE CONDITION CODE 

KASK TO GET CC 

CHECK THAT CC = 0001 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 22 CC=0001 NOT PETtlRNKD 

CHECK DEST STRING IS CORRECT 

CLEAR INDEX 

LOAD EVEN REG SRC 
LOAD ODD REG SRC 
LOAD EXP RESULT ADR 
LOAD DEST STRING ADS 
SAVE INSTRUCTION ADDRESS 



STBP. 26 AIL POSITIVE 

CAPTURE CONDITION CODE 

BASK TO GET CC 

CHECK THAT CC = 0010 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET EES FLAG 

ERROR 21 CC=0010 NOT RETURNED 

CHECK DEST STRING IS CORRECT 

CHECK IF ALL DONE 

DONE, CONTINUE 

INCREMENT RESULT INDEX 

INCREMENT SRC INDEX 

LOOP TIL ALL #DONE 



ST0RE7 



STORES 



LIS R12,0 

LIS R13,0 

L R2,STBP.27A(R13) 

L S3,STBP.27B(B13) 

LHI S5, SEES. 27(812) 

LHI R6,SDEST 



CLEAR INDEX 

LOAD EVEN REG SRC 
LOAD ODD REG SRC 
LOAD EXP RESULT ?,DS 
LOAD DEST STRING ADE 



CML22830 
CVL22840 
CWL22850 
CMX22860 
CJ'L22870 
CML22880 
C«L22890 
CWL22900 
CrL22910 
C«L22920 
C''L22930 
C>!L22940 
C''L22950 
C«L22960 
C'?L22970 
CML22980 
CML22990 
C'«L23000 
C'«L23010 
CML23020 
C''L23030 
CML23040 
C>'L23050 
CML23060 
CML23070 
C''L2308O 
C»'L23090 
C''L23100 
C'<L23110 
CHL23120 
C''L23130 
CWL23140 
CWL23150 
CML23160 
C''L23170 
CWL23180 
C*L23190 
CWL23200 
CHL23210 
C!'L23220 
C«L23230 
C''L23240 
^123250 
CML23260 
CyL23?''0 
C-*L23280 
CHL23290 
^5123300 
CML23310 
CML23320 
CML23330 
CML23340 
CML73350 
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TEST 2 - STEP 
001C7E li1F0 !V50C =00I»18E 
001C82 5E20 351C 



001C86 9577 

001C88 Cit70 000? 

001C8C C570 0001 

001C90 4330 1CA4 

001C94 C8A0 3232 

001C98 40A0 17S2 

001C9C 40A0 175A 

001CA0 lUEO 3F9U 

001CAH 41F0 3A50 

001CA8 C5D0 0038 

001CAC 4380 1CC0 

001CE0 FACO 0000 0010 

001CB6 FADO 0000 0008 

001CBC 4300 1C6E 

001CC0 4300 OFEA 



2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2358 
2359 



BAL LIKK,5EST3 
3TBP R2,SDEST 
STB? SHC REGS CHECK STBP.27 



ST0HE9 



EPSE 

NHI 

CIHI 

3E 

LHI 

STH 

STH 

3AI 

BAL 

CIHI 

3N1 

A I 

AI 

B 



ST0HE10 B 



57, R7 

H7,X"E' 

B7,X'1 • 

ST0RE9 

S10,C'22' 

E10,ESENO 

EICNOEaP. 

SET,CCSG 

LINK,STB?CHK 

513,56 

STORE10 

E12,16 

R13,8 

ST0EE8 

TSTSND 



SAVE INSTRUCTION ADDRESS 



STEP. 33 ALL NEGATIVE 

CAPTOEE COSDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 0001 

CC OK, COBTINUE 

LOAD ESEOE NO 

STORE 

SET ERE FLAG 

ERROR 22 CC=0001 NOT ESTUEHED 

CHECK DEST STRING IS CORRECT 

CHECK IF ALL DONE 

DONE, CONTINUE 

INCHESENT RESULT INDEX 

INCEEHENT SRC INDEX 

LOOP TIL ALL #DONE 

EXIT TEST 2 



CHL23360 
CWL2337G 
CWL23380 
CKL23390 
Ci!L23400 
CML23410 
CML23420 
CML23430 
CSIL23440 
CKL23450 
C''L23460 
CML23470 

CLSsaao 

C?IL23490 
C''L23500 
C'»L23510 
C?!L23520 
C'?L23530 
CWL23540 
CWL23550 
C"L23560 
C!'L23570 
CWL23580 
CWL23590 
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001CC4 
001CC6 
001CC8 
001CCA 

001CCE 
001CD2 



001CD6 
001CD8 
001CDC 
001CE0 
001CE1 
001CE8 
001CEC 
001CF0 

ooiCFa 

001CF8 
001CFC 
001DQ0 
001D04 
001D06 
001D0A 
001D0E 
001D12 
001D16 

001D1A 
001D1E 
001D22 
001D24 
001D26 
001D28 



0000 1CC4 

2421 

2431 

2450 

41F0 A49A =004168 

9C20 3684 
0130 3584 



9577 

C470 OOOF 
C570 0000 
4330 1CF4 
CSAO 3330 
40A0 17A2 
40A0 175A 
41E0 3F94 

C840 3684 
C350 3784 
41F0 A4A0 
Cfl43 3584 
0514 

4330 1D1A 
C8ftO 3331 
4OA0 17^2 
40A0 175A 



=0041A0 



41E0 A32E =004048 

C560 OOFF 

4 3 30 1D2C 

2521 

2531 

2561 

4300 1CCA 



2361 
2362 
2363 
2364 
2385 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2331 
2382 

2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2"10 
2411 
2412 



********************************************************************* 

* * 

* TEST 3 - MOVE CMOVEF) * 

* * 

* HOVE DATA FROM SOURCE AREA TO DESTINATION AREA. * 

* PAD SHORTER STRING TO LENGTH LONGER STRING, * 

* USING PAD CHARACTER CONTAINED IN REG 0- * 

* * 

* KOVEP (MOVE WITH DEFAULT PAD - C BIT =1) 

* DEFAULT PAD CHARACTER = X'20'. * 



if**-*** *"* ir***ic**irit****Tt**< 



TEST3 



SET3 



EQU 


* 


LIS 


R2,1 


LIS 


33,1 


LIS 


R6,0 


BAL 


LINK, RESTORE 



HOVE R2,0PN1,R3,CPN2 



* SOVE RX1,8X1 

EPSR 

NHI 

CLHI 

BE 

LHI 

STH 

STH 

BAL 



SET3.01 



SFT3.02 



LHI 

LHI 

BAL 

LHI 

CLR 

BE 

LHI 

STH 

STH 

BAL 

CLHI 

BE 

AIS 

AIS 

AIS 

B 



R7,R7 

R7,X'F' 

E7,X"0' 

SET3.01 

R10,C'30' 

R10,EHRN0 

RICNOERR 

RET,CCNG 

R4,0?N1 

R5, MASTER 

LINK,HVCHK 

R4,0PN2(R3) 

R1,B4 

SET3.02 

R10,C'31" 

P10,ERRNO 

R10,NOSRH 

RET,ADRERR 

R6,255 
SET3.03 
R2,1 
33,1 

R6,1 
SET3 



^**************************** ****** 



LOAD INITIAL BYTE LENGTH 
LOAD INITIAL BYTE LENGTH 
ZERO SHIFT COUNT 
RESTORE ALL 



CAPTURE CONDITION CODF 

HASK TO GET CC 

CHECK THAT CC = 0000 

CC OK, CONTINUE 

LOAD ERROR SO 

STORE 

SET ERR FLAG 

ERROR 30 EXP CC=0OO0 NOT RETURNED 

LOAD DESTINATION ADR 

LOAD WASTER ADR 

GO TO BYTE BY BYTE CHECK 

LOAD EXP NEXT SRC ftDP 

COMPARE ACTUAL TO EXP SRC ADDRESS 

CHECK OK 

LOAD ERROR NO 

STORE 

SET ERP FLAG 

ERROR 31 REG 1 INCORRECT 

CHECK IF DONE ALL PARSES 
GO TO NEXT SECTION 
INCREMENT FOP NEXT nOVE 
INCREMENT FOB NEXT KOVE 
INCREMENT PASS COUNT 
RETURN 



CWL23610 
C'»L23620 
C'*L23'^30 
CWL23640 
C»L23''50 
C^L23660 
C'^L23670 
C?!L23fi80 
r«L2369C 
C>'L23700 
C'!L23710 
C''L2?720 
C'!L23730 
C«L23740 
C!«L?3''5n 
C><L23760 
C?«L23770 
C«L23780 
C''L?3790 
C''L23800 
C'!L?3810 
CfL23820 

C''L23830 
^123840 
C'fL23850 
C''L23860 
CXL23870 
C«L23880 
C1L23890 
C''L23900 
C1L23910 
C«L23920 
C'?L23930 
C«'L23940 
C'*L23950 
C''L2'960 
C''L23970 
C'iL23980 
C''L2.?990 
^124000 
C''L24010 
C''L24020 
C^L24030 
C"L24040 
C''L240'^0 
C»'L24060 
C'«L24070 
C''L24080 
^124090 
C:?L24100 
CML24110 
CML24120 
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TEST 3 - MOVE 



001D2C 
001D2E 
001D30 
001D3 2 

001D36 

ooiDse 

0Oiri3A 
001D3C 



001D3E 
OOlDitC 
001D«!» 
001048 
001D4C 
001D50 
001D5!* 
001D58 

001D5C 
001360 
001D64 
001D68 
001D6C 
001D6E 
001D72 
001D76 
001D7A 
001D7S 

001062 
001D36 
OO10SA 
OOIDSC 
001D3E 
001D90 



? 001D9E 
7 001DAU 



2«21 
2431 
2460 
41F0 A432 =004168 

8C20 
994A 
0130 
984S 



9577 

C470 OOOE 
C570 0000 
4330 1D5C 
C3A0 3330 
40A0 17A2 
40AO 175A 
41E0 3F94 

C840 3684 
C850 3784 
41F0 A438 
C843 3584 
0514 



=0041A0 



4330 1D82 

CSAO 3331 

40A0 17A2 

40RO 175A 

41E0 A2C6 =004048 

C560 OOFF 
4330 1D94 
2621 
2631 
25S1 
4300 1D32 



001094 2421 

001D96 2431 

001D98 2460 

001D9A 41F0 A3CA 



=004168 



8C20 4000 3684 
0130 4000 3584 



001DAA 9577 
PHEVIOUS HARNIRG OS PAGE 48 



2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 

2461 
2462 
2463 
2464 



SET3.03 LIS S2,1 

LIS P3,1 

LIS H6,0 

SET3.04 3AL LXSK,SEST0E5 



do; 

DC 
OCX 
DC 
MOVE SX2, 

SPSJ 

NHI 

CLK] 



8C20 

ZCOPN1-*-2+X'8000' ) 
0130 
Z(0PS2-*-2+X'8000' ) 



RX2 



SET3.05 



SET3.06 



SET3.07 



SET3.08 



37,57 
R7,X'F' 
B7,X'0' 

BE SET3-05 

LHI E10,C'30' 

STK RIOrERRHO 

STH SICNOERR 

3AL RET,CCNG 

LHI R4,0PN1 

LKI R5, .MASTER 

BAL LIKK,MVCHK 

LKI E4,0PN2(R3) 

CLS R1,R4 

BE SET3.06 

LHI R10,C'31' 

STH aiO,SRRNO 

STK aiO,NOESR 

BAL SET,ADEERR 

CLHI 86,255 

BE SET3.07 

AIS R2,1 

AIS R3,1 

AIS E6,1 

B SET3.04 



LIS E2,1 

LIS R3,1 

LIS R6,C 

BAL LINK, RESTORE 



LOAD INITIAL BYTE COUNT 
LOAD INITIAL BYTE COUNT 
ZERO SHIFT COUNT 
RESTORE ALL 

OP CODS,0EST REG 



CAPTURE CONDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 0000 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 30, EXP CC=0000 NOT RETURNED 

LOAD DESTINATION ADP 

LOAD MASTER ADR 

GO TO BYTE BY BYTE CHECK 

LOAD EXP NEXT SRC ADR 

COHPARE ACTUAL TO EXP SRC ADDRESS 

LOAD ERROR NO 

STORE 

SET FER FLAG 

ERROR 31. REG 1 INCORRECT 

CHECK IF DONE ALL PASSES 
GO TO NEXT SECTION 
INCREMENT FOR NEXT MOVE 
INCREMENT FOR NEXT MOVE 
INCREMENT SHIFT COUNT 
RETURN 



LOAD INITIAL BYTE LENGTH 
LOAD INITIAL BYTE LENGTH 
ZERO SHIFT COUNT 
RESTORE ALL 



MOVE R2,OPN1(RO,R0),E3,OPN2(BO,R0) 



MOVE HX3,RX3 

EPSE E7,B7 



CAPTURE CONDITION CODE 



CML24130 
CML24140 
CML24150 
C''L24160 
CML24170 
CML24180 
C>'L24190 
CWL2420C 
CML24210 
CML24220 
CML24230 
C»fL24240 
C^L24250 
C''L24260 
CML24270 
CML24280 
CML24290 
C^L24300 
CML24310 
C''L24320 
C''L24330 
CML24340 
CML24350 
CML24360 
CML24370 
CML24380 
CML24390 
CML24400 
CML24410 
CWL24420 
C''L24430 
C''L24440 
CML24450 
CML2U460 
CML24470 
CML24480 
CML24490 
CML24500 
C«L24510 
CML24520 
CML24530 
C''L24540 
CML24550 
CML24560 
C''L24570 
CML24580 
C''L24590 
CML24600 

CM124610 
CML24620 
C''L24630 
CML24fi«0 
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001BAC 
001D30 
001DB4 
001DB8 
001DBC 
001DC0 
OOIDCU 

001DC8 
001DCC 
0Q1DD0 
OOIDDI* 
001DD8 
001DDA 
001DDE 
001DE2 
001DE6 
00 IDEA 

001DEE 
001DF2 
001DF6 
001DF3 
001DFA 
Q01DFC 



001E00 
001E02 
OOlEOi* 

001E08 
001E0C 



001E10 
001E12 
001E16 
001E1A 
001E1E 
001E22 
0C1S26 
001E2A 



001E2E 
001E32 
001E3it 
001^36 



C470 OOOF 

C570 0000 

4330 1DC8 

CSAO 3330 

aOAQ 17A2 

40A0 175A 

iHEO 3F94 

C840 3684 

C850 3784 

tlFO A3CC =00mA0 

C843 3584 

0514 

4330 IDEE 

CSAO 3331 

40A0 17A2 

40A0 175A 

41^0 A25A =004048 

C550 OOFF 
4330 1E00 
2621 
2631 
2651 
4300 1D9A 



2421 
2432 

41F0 A360 

8C20 3684 
0130 3534 



9577 

C470 OOOF 
C570 0004 
4330 1E2E 
C3A0 3332 
40AO 17A2 
40A0 175A 
41S0 3F94 



C800 OC 
2421 
2432 
2450 



=004168 



2465 
2466 
2467 
2458 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 

2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 



SET3.09 



NHI 

CLHI 

BE 

LHI 

STH 

STH 

BAL 

LHI 

LHI 

BAL 

LHI 

CLR 

SE 

LHI 

STH 

STH 

BAL 

CLHI 

BE 

AIS 

AIS 

AIS 

B 



SET3.11 LIS 

LIS 

SET3.12 BAL 



SET3.10 



E7,X'F' 

E7,X'0* 

SST3.09 

510,C'30' 

BIO.ESPHO 

E10,N0EBR 

8ET,CCN3 

S4,0PN1 

R5,«ASTEE 

LINK,HVCHK 

E4,0PN2(E3) 

El, 34 

SFT3.10 

H10,C'31' 

E10,ERRN0 

PIO.NOEEP 

EET.ADSESR 

36,255 

SET3.11 

R2,1 

S3,1 

R6,1 

SET3.08 



R2,1 

R3,2 

LINK, RESTORE 



MASK TO GET CC 

CHECK THAT CC = 0000 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

EEROR 30 EX? CC=0000 NOT RET^THNED 

LOAD DESTINATION ADR 

LOAD :?A?TER ADR 

GO TO BYTE BY BYTE CHECK 

LOAD EXP NEXT SRC ADR 

COMPARE ACTUAL TO EXP SRC ADDRESS 

LOAD ERPOR SO 

STORE 

SET ERR FLAG 

ERROR 31 REG 1 INCORRECT 

CHECK IF DONE ALL PASSES 
GO TC NEXT SECTION 
INCREJfENT FOR NEXT fOVE 
INCRESENT FOE NEXT MOVE 
INCREMENT SHIFT COUNT 
RETURN 



LOAD DESTINATION LENGTH 
LOAD SOURCE LENGTH 
REST ORE ALL 



MOVE E2,0PN1,R3,0PN2 



MOVE RX1,EX1 SOURCE LEN > DEST LEN 



EPSE 37, R7 



KHI 


E7,X'F' 


CLHI 


R7,X'4' 


BE 


SET3.13 


LHI 


F10,C'32' 


STH 


E10,ERSN0 


STH 


RICNOERP 


BAL 


PST,CCNG 



CAPTURE CONDITION CODE 

MASK TO GET CC 

CHEC>f THAT CC = 0100 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 32 EXP CC 



0100 NOT RETURNED 



SET3.13 



LHI 
LIS 
LIS 
LIS 



ECX'FF" 

R2,1 

R5,2 

?e,o 



LOAD PAD CHARACTER 
LOAD INITIAL BYTE LENGTH 
LOAD INITIAL BYTE LENGTH 
LOAD SHIFT COUNT 



CML24«50 
C''L24560 
C''L74570 
CML245S0 
C'*L24590 
C'*I24700 
CWL2 4710 
CML24720 
CYI24730 
C''L24740 
CML24750 
C''L24"'''0 
C'^L24770 
C''L247S0 
C''L24790 
C«L24P00 
CrL24810 
C''L24320 
C"<L24830 
CWL74S40 
C''L24850 
C'*L?4960 
C''L24870 
CML24880 
C^I24890 
C»'L24900 
C'^L2U910 
C»-L24920 
C*I24930 
C?'L24940 
CrL24950 
C''L24960 
C''L24970 

C''X2 49S0 
C''L2499C 
CMI,2==000 
CML2=;010 
C''L25020 
C«iL25030 
C»'L25040 
C''L25050 
C''L2 = 060 
CML25070 
CML250eO 
C»!L250gO 
CfL25100 
CML25110 
CKL25120 
C}'L25130 
CML25iao 
CML25''50 
CML25160 



SERIES 3200 COMMERCIAL 

TEST 3 - MOVE 

001E38 41F0 R32C =0011168 

001E3C 8C30 3681* 
001E40 0120 3584 



001EU4 9577 

001E46 C470 OOOF 

001F4ft C570 0300 

OOlEtE 4330 1E62 

001E52 C8A0 3330 

001E56 40fi0 17A2 

001E5A 40A0 175A 

0G1E5E 41E0 3F94 

001E62 C840 3684 

001E66 C850 3784 

001E6A 41F0 S332 =0041AO 

001E6E C342 3584 

001E72 0514 

001E74 4330 1F88 

00.1E78 C8A0 3331 

001E7C 40A0 17A2 

001E80 40AO 175A 

001E84 41E0 A1C0 =004048 

001E88 C560 0007 

001E8C 4330 1F9A 

001E90 9121 

001E92 9131 

001E94 2661 

001E96 4300 1E38 



001E9A 2432 
001E9C 2421 
001i;9E 41F0 A2C6 =004168 
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001EA2 
001EA6 



001EAA 
001EAC 
001EBO 
001EB4 
001EB8 
001EBC 
001EC0 



8C30 3684 
2120 3534 



9577 

C470 OOOF 
C570 0000 
4330 1EC8 
C8A0 3330 
40A0 17A2 
4OA0 175A 



2517 
2518 
2519 

2520 
2521 
2522 
2523 
2524 
2525 
2525 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2561 
2552 
2553 
2554 
2555 
2556 
2557 

2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 



SET3.14 BAL LINK,8EST0EE 

* 

aOVE S3,0PN1,E2,0PS2 



RESTORE ALL 



* WOVE RX1,HX1 DEST = SOURCE X 2 HALF STRING HALF PAD 



SET3.15 



EPSR 

NHI 

ClHI 

BE 

LHI 

STH 

STH 

BAL 

LHI 
LHI 
BAL 
LHI 

CLE 

BE 

LHI 

STK 

STH 

BAL 



SET3.16 CLHI 
BE 

SLHLS 
SLHLS 
AIS 
B 



SET3.17 LIS 

LIS 

SET3.18 BAL 



37, B7 

R7,X'F' 

R7,X'0' 

SET3.15 

S10,C'30' 

E10,ESEN0 

S10,S0EEE 

SET,CCNG 

H4,0PN1 

S5, MASTER 

LINKfBVCHK 

R4,0PS2(R2) 

R1,R4 

SST3.16 

S10,C'31* 

B10,ER8N0 

EICHOERR 

EET,ADEESE 

R6,7 

SET3.17 

E2,1 

E3,1 

E6,1 

SET3.14 



S3, 2 
E2,1 
LINK, RESTORE 



EFSE 


E7,57 


NHI 


B7,X'F' 


CLHI 


E7,X'0' 


BE 


SET3.19 


LHI 


E10,C'30' 


STH 


EICESRSO 


STH 


E10,N0EEE 



CAPTURE CONDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 0000 

CC OK, CONTINUE 

LOAD ERROR SO 

STORE 

SET SFR FLAG 

ERROR 30 EXP CC=0000 N07 



RETURNED 



LOAD DESTINATION ADR 

LOAD MASTER ADR 

GO TO BYTE BY BYTE CHECK 

LOAD EXP NEXT SEC ADE 

COMPARE ACTUAL TO EXP SEC ADDEESS 

LOAD EHROE NO 

STORE 

SET ERR FLAG 

ERROR 31 SEG 1 INCORRECT 

CHECK IF DONE ALL PASSES 
GO TO NEXT SECTION 
SHIFT FOR NEXT SOVE 
SHIFT FOR NEXT HOVE 
INCREMENT SHIFT COUNT 
RETURN 



LOAD INITIAL BYTE LENGTH 
LOAD INITIAL BYTE LENGTH 
RESTORE ALL 



KOVEP R3,0PN1,R2,0PN2 



MOVEP RX1,RX1 DEFAULT PAD CHAF *20" 



CAPTURE CONDITION CODE 

HASK TO GET CC 

CHECK THAT CC = 0000 

CC OK, CONTINUE 

LOAD EEHOR NO 

STORE 

SET ERR FLAG 



CW125170 
CKL25180 
C>?L2519C 

Cl>'L25200 
CML25210 
CWL2522C 
C>'L25230 
C'<L25240 
C^L25250 
C'*L25260 
C«^i25270 
rwL25280 
CyL25290 
CWL25300 
C''L25310 
C?'125320 
C''L25330 
C>TL25340 
CWL25350 
C''L25360 
CHL25370 
CWL25380 
C!IL25390 
CKL25400 
C»L25410 
CKL25420 
CFL2'^430 
CWL25440 
CWL25450 
CHL25460 
C«L25470 
^^125480 
C»fL25490 
C'!L25500 
CFL25510 
C»!L25520 
C''L25530 
C'?L25540 
CWL25550 
C"fL25560 
C''L25570 

CML25580 
CWL25590 
CHL25600 
CWL25610 
C>'L25520 
C«L25630 
Ci?L25640 
CML256S0 
C»^L25660 
CWL25670 
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OOlECi* 


i*1E0 


3F94 


2568 
2569 


* 




BAL 


8ET,CCNG 


001EC8 


C840 


3684 


2570 


SET 3, 


.19 


LHI 


E4,0PN1 


001ECC 


C850 


3784 


2571 






LHI 


RE, MASTER 


001EDO 


41F0 


A2CC =0041A0 


2572 






BAL 


LINK,MVCHK 


001ED4 
001ED8 


C842 
0514 


3584 


2573 
2574 






LHI 
CLE 


HU,0P}(2{S2) 
E1,R4 


001EDA 


4330 


imEE 


2575 






BE 


SET3. 1A 


001EDE 


C8A0 


3331 


2576 






LHI 


R10,C'31' 


001EE2 


40A0 


17A2 


2577 






STH 


810,EREN0 


001EE6 


40A0 


175A 


2578 






STH 


B10,NOFEP. 


001 SEA 


41E0 


A15A =004048 


2579 
2580 


* 




BAL 


EET,ADRE5E 


001EEE 


C530 


OOFF 


2581 


SET3. 


,1A 


CLKI 


S3, 255 


001EF2 


4330 


1EFC 


2582 






BE 


SET3.1B 


001EF6 


2531 




2583 






AIS 


E3,1 


001EF8 


4300 


1E9H 


2584 
2585 


* 




B 


SETS. 18 


001EFC 


4300 


OEEA 


2586 
2587 


SET3. 

* 


,1B 


B 


TSTESD 



EEROE 30 EXP CC=0000 NOT EETI'ENED 

LOAD DESTINATION ADR 

LOAD MASTEE ADR 

GO TO BYTE BY BYTE CHECK 

LOAD EXP SEXT SEC ADP 

COMPARE ACTUAL TO EXP SEC ADDRES"^ 

LOAD EEROE BO 

STORE 

SET ERR FLAG 

ERROR 31 EEG 1 IKCOEEECT 

DONE 7 

CONTINUE 

INCEESENT DEST LENGTH 

LOOP TIL ALL PAD CHECKED 

EXIT TEST 3 



CXL25680 

CfL25690 
CKL25700 
C»L25710 
C"I?5720 
C^L25730 
CKL25740 
CKL25750 
CWL25760 
C«fL25770 
C«'L25780 
C«L25790 
C''L25800 
C'»L25810 
CTL25S20 
C'fL25830 
C''L25840 
CfL25850 
C'?L25860 
CWL25870 
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TEST '4 - CPAN 



0000 1F00 
001F00 2i*2A 
001F02 2430 

001F04 tlFO R260 =001*168 

001F08 8C20 3990 

001F0C «2A0 3986 



001F10 9577 

001f12 C470 OOOF 

001F16 C570 0002 

001F1A 4330 1F2E 

001F1E C8A0 3432 

001F22 40A0 17A2 

001F26 40A0 175A 

001F2A 41E0 3F94 

001F2E C510 0000 

00ir32 4330 1F46 

001F36 C8A0 3436 

001F3A 40AO 17A2 

001F3E 40A0 175A 

001F42 41E0 A1A0 =0040E6 

001F4e 243A 

001F48 41F0 a21C =004168 

001F4C 8CA0 3986 

001F50 8230 3990 



2585 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 



********************************************************************* 

* 
* 

* TEST 4 - CPAS (CPANP) * 

* 
* 

* COMPAEE DATA FROM SODBCE AREA TO DATS IN DESTINATION AEEA. * 

* PAD SHOSTEB STEISG TO LENGTH lOSGEF STSING, * 

* USING PAD CHAKACTEE CONTAISFD IN 3EG 0. * 

* 
* 

* CPAKF (COHPAEE WITH DEFAULT PAD - C BIT =1) * 

* DEFAULT PAD CHABACTEF. = X'20'. * 
* 
********************************************************************* 



2502 * 

2603 * 

2604 TEST4 



001F54 9577 
001F56 C470 OOOF 



2605 PSE.OO 

2606 

2607 

2608 

2609 

2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2525 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 

2634 
2635 
2636 
2637 
2638 
2639 



EQU 

LIS 

LIS 

PSE4.01 BAL 



R2,10 

E3,0 

LINK,EESTOEE 



LOAD INITIAL BYTE LENGTH 
LOAD SPECIAL OFFSET LENGTH 
RESTOSE ALL 



CPAN S2,SDHB10HI,=10,NnS310 



CPAN RX1,EX1 0PN1 LEN = [E2] 0PN2 LEN = 10 IMMEDIATE 
PSECHECK FOE IHHEDIATE lEN 0PN2 



PEE4.02 



PPE4.03 



EPSE 

NHI 

CLHI 

BE 

LHI 

STH 

STH 

BAL 

CLHI 

BE 

LHI 

STH 

STH 

BAL 

LIS 

BAL 



R7,R7 

E7,X'F' 

E7,2 

PRE4.02 

S10,C'42' 

E10,EERKO 

R10,S0EES 

EET,CCNG 

51,0 

PEE4.03 

R10,C'46' 

E10,EEHN0 

EIO.NOEEE 

EET,0FFSER 

B3,10 

LINK, RESTORE 



CAPTURE CONDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 0010 

CC OK, CONTINUE 

LOAD EEEOE NO 

STORE 

SET SEE FLAG 

EREOS 42 EXP CC=0010 NOT RETUENED 



CHECK IF OFFSET 

OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ESR FLAG 

EREOP 46 OFFSET 



CORRECT (=0) 



RETURNED INCORRECT 



LOAD INITIAL LENGTH 
RESTORE ALL 



CPAN =10,NU«B10,E3,SUKB10HI 



CPAN SX1,RX1 0PN1 LEN = 10 ISKEDIATE 
PRECHECK FOR IMMEDIATE LENGTH 0PN1 



0PN2 LEN 



IR3] 



EPSR 
HHI 



R7,R7 
R7,X'F' 



CAPTURE CONDITION CODE 
MASK TO GET CC 



CVL25890 
CML25900 
CKL2S910 
CWL25920 
CKL2593Q 
C«L25940 
CyL25950 
C''L25960 
CWL25970 
C"«L25980 
C'?L25990 
CWL26000 
CML26010 
C«L26020 
C?!L26030 
C>'L26040 
C«!L26050 
CML26060 
CWL26070 
CWL26080 
C''L26090 

C'<L2«;100 
CfL26110 
C''L26120 
C''L26130 
C''L25140 
C«L26150 
C'!L26160 
C«L26170 
C''L26180 
C''L26190 
C«L26200 
C'»L2fi210 
CKL26220 
C'«L26230 
CKL26240 
C''L26250 
CWL25260 
CSL25270 
C)!L2fi28n 
C''L26290 
C'?L26300 
CML26310 
Cf^L26320 
C^L26330 

CnL26340 
C'(!L26350 
C1L26360 
Ct<L26370 
CWL26380 
CML26390 
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TEST H - CPAN 



001F5A 


C570 


0009 


2640 






CLHI 


E7,9 


CHECK THAT CC = 1001 




CML26400 


001F5E 


4330 


1F72 


2641 






BE 


PSE4.04 


CC OK, CONTIMnF 




C''L26410 


001F62 


C8S0 


3434 


2642 






LHI 


E10,C"44" 


LOAD ERROR NO 




0*126420 


001F56 


40A0 


17A2 


2643 






STH 


BICERRNO 


STORE 




CML26430 


001F6A 


40A0 


175A 


2644 






STH 


R10,N0EER 


SET ERR FLAG 




CML26440 


001F6E 


41E0 


3F94 


2645 
2646 


• 




BAL 


RET,CCNG 


ERROR 44 EXP CC=1001 NOT 


RETURNED 


Cyi2e450 
^126460 


001F72 


C510 


0000 


2647 


PRE4. 


04 


CLHI 


E1,0 


CHECK IF OFFSET COEPECT ( 


= 0) 


CML26470 


001F76 


4330 


1F8C 


2648 






BE 


PEE4.05 


OK, CONTINUE 




CML26480 


001F7A 


2430 




2649 






LIS 


R3,0 


SET EXP OFFSET FOR ERE PRINT 


CML26490 


001F7C 


CSAO 


3436 


2650 






LHI 


H10,C'46' 


LOAD ERROR NO 




CML26500 


001F80 


40A0 


17A2 


2651 






STH 


SIO.ERRNO 


STORE 




C''L26510 


001F8I4 


40A0 


175A 


2652 






STH 


R10,NOERR 


SET ERR FLAG 




C"L26520 


001F88 


41E0 


A15A =0040E6 


2653 
2654 


* 




BAL 


EET,OFFEEE 


ERROR 46 OFFSET RETURNED 


INCOREECT 


CML2fi530 
C''L26540 


001F8C 


2410 




2555 


PEE4. 


,05 


LIS 


E1,0 


CLEAR PEG 1 




CML26550 


001F8E 


2430 




2656 






LIS 


R3,0 


LOAD SPECIAL OFFSET LENGTH 


CJfL26560 


001F90 


41F0 


A1D4 =004168 


2657 
2658 


* 




BAL 


LINK, RESTORE 


RESTORE AIL 




CML26570 
C'»L26580 


OOlFgt 


8C10 


3990 


2659 






CPAS 


=1,NUK310HI,= 


=1,NUHE10+9 




C''L2fi590 


001F98 


C210 


398F 
























2660 


* CPAN 


EX1,RX1 0PN1 LEN = 


0PN2 LEN = 1 IMMEDIATE 




CML2fi600 








2661 


* PRECHECK FOE BOTH 0PN1 ASD 0PN2 I««EDIATE LENGTHS 




C*L26fi10 








2662 


* 












C1L25620 


001F9C 


9577 




2663 






EPSR 


B7,E7 


CAPTUEE CONDITION CODE 




CWL26630 


001F9E 


C470 


OOOF 


2664 






NHI 


R7,X'F' 


MASK TO GET CC 




CML26640 


Q01FA2 


C570 


0000 


2665 






CLHI 


R7,0 


CHECK THAT CC = 0000 




CML26650 


001FA6 


4330 


1FBA 


2656 






BE 


PRE4.06 


CC OK, CONTINUE 




CWL26660 


001FAA 


C8A0 


3430 


2667 






LHI 


E10,C*40' 


LOAD EEEOS NO 




CHL26670 


001FAE 


40A0 


17A2 


2668 






STH 


B10,EBRK0 


STOEE 




CML26680 


001FB2 


40A0 


175A 


2669 






STH 


EICNOEER 


SET ERR FLAG 




CWL26690 


001FB6 


41S0 


3F94 


2670 
2671 


* 




BAL 


RET,CCNG 


ERROR 40 EXP CC=0000 NOT 


RETURNED 


C'fL26700 
C''L26710 


001FBA 


C510 


0000 


2672 


PRE4, 


.06 


CLHI 


E1,0 


CHECK IF OFFSET CORRECT ( 


:=o) 


CML26720 


001FBE 


4330 


1=-D2 


2673 






BE 


PEE4.07 


OK, CONTINUE 




CWL26730 


001FC2 


C8A0 


3436 


2674 






LHI 


R10,C*45' 


LOAD ERROR NO 




CML26740 


001FC6 


40AO 


17A2 


2675 






STH 


R10,EEEN0 


STOEE 




C>!L26-'50 


001FCA 


40A0 


175A 


2676 






STH 


R10,NOERR 


SET ERR FLAG 




C«L26760 


001FCE 


41E0 


A114 =0040E6 


2677 
2678 


* 




BAL 


RET,OFFEER 


ERROR 46 OFFSET RETURNED 


INCORRECT 


CML26770 
CHL26780 


001FD2 


2421 




2679 


PEE4 


.07 


LIS 


R2,1 


LOAD INITIAL BYTE LENGTH 




C«^L26790 


001FD4 


2431 




2680 






LIS 


R3,1 


LOAD INITIAL BYTE LENGTH 




C«L26800 


001FD6 


41F0 


A18E =004168 


2681 
2682 


SET4 

* 




BAL 


LINK, RESTORE 


RESTORE ALL 




CML26310 
CWL26820 


001FDA 


8C20 


3784 


2683 






CPAN 


R2, MASTER, R3 


,0PN2 




C?'L26830 


001FDE 


0230 


3584 


2684 


* 












C»I26840 








2685 


* CPAN 


RX1,P.X1 


EQUAL STRING COMPARE 1 TO 256 BYTES 




CWL26850 








2686 


* 












CfL26860 


001FE2 


9577 




2687 






EFSS 


R7,R7 


CAPTURE CONDITION CODE 




Ci^L26B70 


OOlFEil 


C470 


OOOF 


2688 






NHI 


R7,X'F' 


MASK TO GET CC 




CML26880 


OOlFEe 


C570 


0000 


2689 






CLHI 


E7,X'0' 


CHECK THAT CC = 0000 




CML26890 


001FEC 


4330 


2000 


2690 






BE 


SET4.01 


CC OK, CONTINUE 




CML26Q00 
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CPAS 



001FF0 


C8A0 


3430 


2691 






LHI 


S10,C*40" 


LOAD EREOE HO 




CWL26910 


001FF« 


40A0 


17A2 


2592 






STH 


SIO.ERSSO 


STORE 




C?fL26920 


OOIFFB 


40A0 


175A 


2693 






STH 


R10,NOERB 


SET ESS FLAC- 




CSL26930 


001FFC 


41E0 


3F94 


2694 
2695 


* 




BAL 


RET,CCNG 


EBROH 40 EXP CC=0000 NOT 


RETURNED 


C'!L26940 
C«L26950 


002000 


C513 


FFFF 


2596 


SET4, 


,01 


CLHI 


B 1 , - 1( P 3 ) 


CHECK IF OFFSET CORRECT 




C«L26960 


002004 


4330 


2013 


2697 






3E 


SET4.02 


OK, CONTINUE 




CWL26970 


002008 


C3A0 


3436 


2696 






LHI 


P10,C"46' 


LOAD ERROR NO 




CfL26980 


00200C 


40A0 


17A2 


2699 






STH 


H10,EBRR0 


STORE 




CKL26990 


002010 


40A0 


175A 


2700 






STH 


E10,SOERR 


SET ERS FLAG 




C''L27000 


00201iJ 


41E0 


AOCE =0040E6 


2701 

2702 


* 




BAL 


SET,OFFERR 


ERROR 46 OFFSET RETURNED 


INCORRECT 


CJ?L2-'010 
C''L27020 


00201S 


C530 


OOFF 


2703 


SET4. 


,02 


CLKI 


R3,255 


DOSE ? 




CWL27030 


00201C 


4330 


2028 


2704 






BE 


SET4.03 


50 TO NEXT SECTION 




CKL2704P 


002020 


2621 




2705 






AIS 


P2,1 


INCREHEST LENGTH 




C''L27050 


002022 


2631 




2706 






AIS 


R3,1 


INCREKENT LENGTH 




CML27060 


002C2U 


4300 


1FD6 


270'' 

2708 


* 




B 


SET4 


RETOBN NEXT PASS 




C*'L27070 
CML270S0 


002C2S 


2420 




2709 


SExa. 


.03 


LIS 


R2,0 


LOAD INITIAL BYTE LENGTH 




CWL27090 


00202R 


2431 




2710 






LIS 


E3,1 


LOAD INITIAL BYTE LENGTH 




C^L27100 


00202C 


C800 


OOFF 


2711 






LHI 


EO,X'FF* 


LOAD BEG WITH PAD CHAR 




CWL27110 


002030 


41F0 


A134 =004168 


2712 
2713 


SETU. 
* 


,04 


BAL 


LINK, RESTORE 






CrL27120 
C?«L27130 


00203i4 


8C20 


3784 


2714 






CPAS 


R2,!!ASTER,B3,OPN2 






C'?L27140 


002038 


0230 


3584 


2715 


* 












CUL27150 








2716 


* CPAN WITH 0PN1 LE^ = TO CHECK 


PAD CHAE 




C»'L27160 








2717 


* 












C''L27170 


00203C 


9577 




2713 






EPSR 


B7,R7 


CAPTURE CONDITION CODE 




CftL27180 


00203E 


C470 


OOOF 


2719 






NHI 


57,X'F' 


SASK TO SET CC 




C'?L27190 


0020112 


C570 


0000 


2720 






CLHI 


S7,X'0' 


CHECK THAT CC = 0000 PAD 


= tREG 0] 


C''L27200 


002046 


4330 


205A 


2721 
2722 


* 




BE 


SET4.05 


CC OK, CONTINUE 

THAT IS [0PN11 = [BEG 0] 


COBBECT FAD 


C»'L27210 
C'^L27220 


00204A 


CSAO 


3431 


2723 






LHI 


R10,C'41' 


LOAD ERROR NO 




C«'L2-'230 


00204E 


40A0 


17A2 


2724 






STH 


R10,ERRN0 


STORE 




^^127240 


002052 


40AO 


175A 


2725 






STH 


R10,!IOERB 


SET ERB FLAG 




CfL27250 


002056 


41E0 


3E22 


2726 






BAL 


PET,PADSRE 


EBBOR 41 PAD CHAR NOT HATCH BEG 


C»fL27250 








2727 


* 












C?IL77270 


Q0205A 


C513 


FFFF 


2728 


SETa. 


.05 


CLHI 


R1,-1(R3) 


CHECK IF OFFSET COBBECT 




Ci«L27280 


00205E 


4330 


2072 


2729 






BE 


SST4.06 


OK, CONTINUE 




CML27290 


002062 


C8A0 


3435 


2730 






LKI 


E10,C'45' 


LOAD ERROR NO 




C^L27300 


002066 


40A0 


17A2 


2731 






STH 


E10,ERHN0 


STORE 




C'tL27310 


00206A 


40A0 


175A 


2732 






STH 


E10,NOEBE 


SET ERR FLAG 




CWL27320 


00206E 


41S0 


A074 =0040E6 


2733 
2734 


* 




BAL 


EET,OFFEBE 


EREOB 45 OFFSET RETUBNED 


INCORRECT 


C!«L27330 
C''L27340 


002072 


2421 




2735 


SETtt, 


.05 


LIS 


P.2,1 


LOAD INITIAL BYTE LENGTH 




C«L27350 


002074 


2432 




2736 






LIS 


R3,2 


LOAD INITIAL BYTE LENGTH 




CFL27360 


002076 


CBOO 


OOFE 


2737 






LHI 


ECX'FE" 


LOAD REGO HITH PAD CHAR 




C''L27370 


00207A 


41F0 


AOEA =004168 


2738 
2739 


SET4, 

* 


.07 


BAL 


LIHK, RESTORE 


RESTORE ALL 




CKL27380 
CML27390 


00207E 


8C20 




2740 






DCX 


8C20 


OP CODE,DEST REG 




CSL2-7400 


002080 


9702 




2741 






DC 


Z(MASTEE-*-2+X'8000 


■) 




CHL27410 


002082 


0230 




2742 






DCX 


0230 


OP HOD, SRC BEG 




CML27420 
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002084 



002086 
002088 
00208C 
002090 
002094 
0Q2098 
00209C 
0020AO 

0020A4 
0020A8 
0020AC 
0020BO 
0020B4 
0020B8 



0020BC 
0020C0 
0020C4 
0020C6 
0020C8 
0020CA 

0020CE 
0020D0 
0020D2 
0020D6 

0020Dfl 
0020DC 
0020DE 
0020EO 



0020E2 
0020E4 
0020E8 
0020EC 
0020FO 
0020F4 
0020F8 
0020FC 

002100 
002104 
002108 
00210C 
002110 
002114 



94FE 



9577 

C470 OOOF 
C570 0000 
«330 20A4 
C3A0 3430 
40A0 17A2 
40AO 175A 
41S0 3F94 

C513 FFFF 
U330 20BC 
C8A0 3435 
'*0AO 17A2 
40AO 175A 
VieO A02A =0040E6 



C530 OOFF 
4330 20CE 
2'521 
2631 
2701 
4300 207A 

2421 

2432 

C800 OOFF 

41F0 A08E =00416£ 

8C20 
96A6 
0230 
94A2 



9577 

C470 OOOF 

C570 0002 

4330 2100 

C8fl0 3432 

40aO 17A2 

40A0 175A 

41F0 3F94 

C513 FFFF 
4330 2118 
C8A0 3435 
4OA0 17A2 



40A0 175A 
41E0 9FCE 



=0040E6 



2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 



DC Z(OPN2-*-2+X'8000' ) 
* CPAN BX2,EX2 LEN 0PN2 > LEN 0PN1 (PAD 0PN1 TO LES 0PN2) 



EPSR 

SHI 

CLHI 

BE 

LHI 

STH 

STH 

BAL 

* 

SET4.08 CLHI 
BE 
IHI 
STH 
STH 
BAL 



SET4.09 



SET4.10 



SET4.11 



CLHI 

BE 

AIS 

AIS 

SIS 

B 

LIS 
LIS 
LHI 
BAL 

DCX 
DC 
DCX 
DC 



H7,a7 

R7,X'F' 

H7,X'0' 

SET4.08 

R10,C*40' 

BIOjERESO 

fi10,N0EB8 

aFT,CCSG 

HI, -1(83) 

SET4.09 

S10,C'45' 

B10,ERR(fO 

R10,NOEER 

RET,OFFERR 



S3, 255 

SET4.10 

R2,1 

B3,1 

R0,1 

SET4.07 

E2,1 
R3,2 
SO,X'FF' 
LIKK, RESTORE 



CAPTURE CONDITION CODE 

HASK TO GET CC 

CHECK THAT CC = 0000 0PH1 (PAD)=0PN2 

CC OK, CONTINUE 

LOAD ERROR HO 

STORE 

SET ERR FLAG 

ERROR 40 EXP CC=0000 NOT RETURNED 

CHECK IF OFFSET CORRECT 

OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 45 OFFSET RETURNED INCORRECT 



DONE? 

GO TO NEXT SECTION 
INCREMENT LENGTH 
INCREMENT LENGTH 
DECREMENT PAD CHAR 
RETURN NEXT PASS 

LOAD INITIAL BYTE LENGTH 
LOAD INITIAL BYTE LENGTH 
LOAD REG WITH PAD CHAR 



8C20 OP 

Z(KASTEE-*-2+X'8000' ) 
0230 OP 

ZC0PN2-*-2+X'8000" ) 
:PAS pad OPSI to LEN 0PN2 , COPNI] > 



CODE,DEST ADR 
HOD, SRC REG 
tOPN2] 



SET4. 



EPSR 

NHI 

CLHI 

BE 

LHI 

STH 

STH 

BAL 

CLHI 

BE 

LHI 

STH 

STH 

BAL 



E7,R7 

R7,X'F' 

R7,X"2' 

SET4.12 

R10,C'42* 

R10,ERES0 

RICNOEER 

1INK,CCNG 

R1,-1(R3) 

SET4.13 

P10,C'45' 

H10,ER8NO 

ai0,N0EER 

RET,0FFEER 



CAPTURE CONDITION CODE 

HASK TO GET CC 

CHECK THAT CC = 0010 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET £ER FLAG 

ERROR 42 EXP CC=0010 NOT RETURNED 

CHECK IF OFFSET CORRECT 

OK, CONTINUE 

LOAD ERROR SO 

STORE 

SET EER FLAG 

ERROR 45 OFFSET RETURNED INCOaSECT 



CWL27430 

CyL27440 

CWL27450 

CWL27460 

CnL27470 

C'«L27480 

CML27490 

CHL27500 

C'fL27510 

CHL27S20 

C''L27530 

C*fL2''540 

C«L27550 

C''L27560 

CML27570 

C'«L27580 

C''L27590 

C»!L27600 

C''L27610 

CML27620 

CKL27630 

C'«L2-'fi40 

C«L27650 

C!fL27660 

C''L27670 

CWL27680 

C''L27690 

CML27-'00 

CWL27710 

C''L27720 

C''L27730 

C'»L27740 

CML27750 

CWL27760 

C>'L27770 

C'fL27780 

CVL27790 

C''L27800 

CHL27810 

CWL27820 

CWL27830 

C>?L27840 

C!?L27850 

C'!L2786C 

C«'L27870 

C''L27880 

C»?L27890 

CfL27900 

CNL27910 

CWI27920 

C!'L27930 

C??L27940 

CSL27950 
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CPAS 











2796 


* 














C»'L27960 


002116 


C530 


OOFF 




2797 


SET4, 


,13 


CLHI 


R3,255 


DONE ? 




CML27970 


00211C 


4330 


2128 




2798 








BE 


SET4.14 


SO TO SIXT SEC^-ION 




CMLJ-^geo 


002120 


2f;21 






2799 








AIS 


P2,1 


INCRE'SNT LENGTH 




CKL27990 


002122 


2631 






2800 








AIS 


B3,1 


ISCREM2HT LENGTH 




CVL29000 


002124 


4300 


20D6 




2801 
2802 


* 






3 


SET4.11 


EET'JRS NEXT PASS 




C''L28010 
C''L28020 


002128 


2421 






2803 


SET4, 


>14 


LIS 


R2,1 


LOAD INITIAL BYTE LENGTH 




C''L29030 


00212A 


2430 






2804 








LIS 


R3,0 


LOAD INITIAL BYTE LENGTH 




C!'L2S040 


00212C 


C800 


OOFF 




2805 








LHI 


RO,X'FF' 


LOAD PEG (CHECK DEFAULT 


USED) 


C'<L23050 


002130 


41F0 


A 34 


=004168 


2806 


SETU, 


.15 


BAL 


LINK, RESTORE 






CKL28060 










2807 


* 














CWL28070 


? 002134 


8C20 


4000 


3863 


2308 








CPANP 


a2,MflSTEB+223(E0 


,R0),R3,OPH2(SO,R0) 




C'TL28080 


? 00213A 


2230 


4000 


3584 


2809 


* 














C»*L28090 










2810 


* 


CPAH? 


0PS2 LEN = PAD WITH 


DEFAULT ■20' TO LEN 0PN1 




C''L28100 










2811 


* 














C''L2S110 


002140 


9577 






2812 








EPSR 


R7,R7 


CAPTURE CONDITION CODE 




C'^L28120 


002142 


C470 


GOOF 




2813 








NHI 


R7,X'F' 


MASK TO GET CC 




^128130 


002146 


C570 


0000 




2814 








CLHI 


87,X"0' 


CHECK THAT CC = 0000 




C'?L28140 


00214A 


4330 


215E 




2315 








BE 


SET4.15 


CC OK, CONTINUE 




CML2815n 


00214E 


C8A0 


3433 




2816 








LHI 


R10,C'43' 


LOAD ERROR NO 




C1L28160 


002152 


40AO 


17A2 




2817 








STH 


E10,EHHN0 


STORE 




CML28170 


002156 


40A0 


175A 




2818 








STK 


EICKOEBR 


SET FSa FLAG 




C»L28180 


00215A 


41S0 


3E22 




2819 
2820 


* 






BAL 


RET,PADEEE 


ERROR 43 DEFAULT PAD NOT 


SATCH '20' 


C»IL28190 
C''L28200 


00215E 


0513 






2321 


SE 


;t4, 


.16 


CLB 


E1,E3 


CHECK IF OFFSET COESECT 




C''L28210 


002160 


4330 


2174 




2822 








BE 


SET4.17 


OK, CONTINUE 




C''L28220 


002164 


caAO 


3436 




2823 








LHI 


R10,C'45' 


LOAD ERROR NO 




C»'L28230 


002158 


40A0 


17R2 




2824 








STH 


E10,ESEN0 


STORE 




C'<L28240 


00216C 


40A0 


175A 




2825 








STH 


B10,N0SSR 


SET ERR FLAG 




C''L2S250 


002170 


41E0 


9F72 


=0040E6 


2826 
2827 


* 






BAL 


BET,CFFERE 


ERROR 46 OFFSET RETURNED 


INCOEEEC" 


CHL28260 
C?1L28270 


002174 


2422 






2828 


SE 


;t4, 


.17 


LIS 


E2,2 


LOAD INITIAL BYTE LENGTH 




C''L23280 


002176 


2431 






2829 








LIS 


H3,1 


LOAD INITIAL BYTE LENGTH 




C«L28290 


002178 


2400 






2830 








LIS 


R0,0 


LOAD REG (CHECK DEFAULT 


' USED) 


C?«L28300 


00217A 


41F0 


9FEA 


=004168 


2831 
2832 


S£ 

* 


;t4, 


.18 


BAL 


LIKK, RESTORE 


RESTORE ALL 




CWL2P310 
C''L28320 


? 00217E 


8C20 


4000 


3864 


2S33 








CPANP 


E2,ifASTEE+224(E0 


,R0),R3,CPN2+224(E0,R0) 




CrL?8330 


? 002164 


2230 


4000 


3664 


2334 


* 














C''L28340 










2835 


* 


CPANP 


HX3,HX 


3 DEFAULT FAD 0PN2+224=1F 




C'^L2S350 










2836 


* 






PAD CHAK = •20" OPN + 


224 = 1F 




CfL2e360 










2837 


* 














CHL28370 


00218A 


9577 






2838 








EPSR 


F7,R7 


CAPTURE CONDITION CODE 




C''L28380 


00218C 


C470 


OOOF 




2839 








NHI 


R7,X'F' 


MASK TO GET CC 




CfL28390 


002190 


C570 


0009 




2B40 








CLHI 


R7,X'9' 


CHECK THAT CC = 1001 0PN1<0PN2(PAD) 


C''L28400 


002194 


4330 


21A8 




2841 








BE 


SET4.19 


CC OK, CONTINUE 




CWL28410 


002198 


C8R0 


3434 




2842 








LHI 


S10,C'44' 


LOAD ERROR NO 




C1L28420 


00219C 


40A0 


17A2 




2843 








STH 


EICESENO 


STORE 




C»!L28430 


0021A0 


40 At' 


175A 




2844 








STH 


S10,N0ESE 


SET ERR FLAG 




C»IL28440 


0021A4 


41ED 


3F94 




2845 
2846 


* 






BAL 


EET,CCNG 


ERROR 44 EXP CC=1001 NOT 


RETURNED 


C1L28450 
CHI,28460 



PREVIOUS HARNIHG ON PAGE 51 
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0021A8 


C513 


FFFF 


2847 


SET4. 


,19 


CLHI 


B1,-1(R3) 


CHECK IF OFFSET CORRECT 


CKL28470 


0021AC 


a330 


21C0 


2848 






BE 


SET4.20 


OK, CONTINUE 


CfI2e4SC 


0021BO 


CBAO 


3435 


2849 






LHI 


R10,C'45' 


LOAD ERBOE NO 


C'»L28490 


0021B4 


40A0 


17A2 


2850 






STH 


B10,ERBNO 


STORE 


CWL28500 


0021B8 


aOAO 


175A 


2851 






STH 


HICNOEBR 


SET EBB FLAG 


C1L28?10 


0021BC 


41 ED 


9F26 =0040E6 


2852 






BAL 


SET,OFFEER 


ERROR 45 OFFSET RETURNED INCORRECT 


CSL2S520 


0021C0 


C520 


001F 


2853 


SET4, 


,20 


ClHI 


R2,31 


DONE? 


CWL28530 


0021C4 


4330 


21D0 


2«54 






BE 


SET4.21 


GO TO NEXT SECTION 


C'?I28540 


0021C8 


2621 




2855 






AIS 


R2,1 


INCBEHENT LENGTH 


CML28S50 


0021CA 


2531 




2856 






AIS 


R3,1 


INCBEHENT LENGTH 


C''L2R560 


0021CC 


4300 


217A 


2857 






B 


SET4.18 


LOOP TIL ALL LENGTHS 0-1F CHECKED 


C''L28570 


0021D0 


4300 


OEEA 


2858 
2859 
2860 
2861 


SET4. 

* 
* 
* 


21 


B 


TSTEMD 


EXIT TEST 4 


^128580 
CWL28S90 
rKL28600 
C«L28610 
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TSST 5 - ?MV 



0021D4 
0021D8 
0021DC 
0021DE 

0021E2 
0021E6 



0021EA 
0021EC 
0021F0 
0021F4 
0021F8 
0021FC 
002200 
002204 

002208 



00220C 
002210 
002212 
002216 
00221A 



0000 21D4 

C820 OOOF 

C830 001E 

2490 

mFO 9FAC =00m8E 

8C20 399A 
0330 3110 



9577 

C470 OOOF 
C570 0000 
4330 2208 
C3A0 3530 
40A0 17A2 
40A0 175A 
"lEO 3F94 

41?0 3AFA 



CB90 0020 

2481 

CB20 OOOF 

C330 001E 

41F0 9f70 =00418E 



00221E 8C20 

002220 9778 

002222 0339 

002224 8EEA 



002225 9577 

002228 C47D OOOF 

00222C C570 0002 

002230 4330 2244 



2863 

2364 

2865 

2866 

2867 

2868 

2869 

2370 

2871 

2872 

2373 

2874 * 

2375 * 

2876 TESTS 

2877 * 



2878 
2879 
2880 
2881 
2882 
2883 



********************************************************************* 

* * 

* TEST 5 - P«V (PMVA) * 

* ♦ 

* CCSVEET UNPACKED DECIHAL DATA FRO* SOGRCi A3EA TO * 

* PfCKi^D DFCIKAL DATA AKD HOVE TO DESTINATION AREA. * 

* * 

* PXYA (FORCE RESULT POSITIVE - C BIT =1). * 

* * 
********************************************************************* 



SETS 



EQU 

iKI 
LKI 
LIS 
BAL 



B2,15 
R3,30 
39,0 
LIliK,REST3 



SET DEST LENGTH 
LOAD SRC LENC-TH 
ZERO INDEX 
SAVE INSTRUCTION ADR 



P;!V R2,PXD23T,R3,UPKSBC 



2884 * 

2885 * PfV RXI.aXI 0?N2=1ST IN BUF TRUE ZERO CHECK 

2886 * 
EPSR 87, S7 
HKI R7,X'F' 
CLHI R7,X*0* 
BE SETS. 01 
LHI R10,C'50' 
STH R10,ERRNO 
STH RIOfSOEHR 
BAL RET,CCNS 



2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 

2895 * 

2896 SETS. 01 

2897 * 

2898 * 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 
2910 
2911 
2912 
2913 
2914 



CAPTURE CONDITION CODE 

8ASK TO GET CC 

CHECK THAT CC = 0000 [0PN1]=0 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR SO EXP CC=0000 NOT RETURNED 



SETS. 2 



BAI 



LHI 
LIS 
LHI 
LHI 
BAL 

DCX 
DC 

DCX 
DC 



LINK,PKCHK 



59,32 

e8,1 

R2,15 

?3,30 

LINK,REST3 

8C20 



GO TO CHECK DIGITS 



LOAD INDEX 1ST POS UNPACKED SRC 
LOAD PASS COON? 
LOAD DEST LENGTH 
LOAD SEC LENGTH 
SAVE INSTRUCTION ADR 



OP CODE, DEST RFG 



Z(PKDEST-*-2+X'8000' ) 



0339 



CP MOD, SRC FFG, INDEX 



■(UPKSRC-*-2+X'8000' ) 



* PMV RX2,RX2 R9=SRC INDEX FOR POSITIVE STRINGS 



EPSR R7,R7 

NHI E7,X'F" 

CLHI R7,X'2' 

BE SETS. 03 



CAPTURE CONDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 0010 [0PN1] > 

CC OK, CONTINUE 



C«L2B630 
CrL2S640 
C*L2e650 
CKL28660 
C*L28670 
C*L28680 
C"'L28P90 
C''L23700 
C'?L2S710 
CrL2e720 
C»L28730 
C''L28740 
C«L28750 
C"L2S760 
C-L28770 
C''L28780 
C^L28790 
C«L28800 
C*L28810 
C"'L28820 
C''L28830 

CML28840 
C''L288S0 
C*L28ft60 
CWL28870 
C''L28880 
C?fL28890 
C''L28900 
C''L28910 
C''L2a920 
CML28930 
CWL23940 
C''L28950 
CWL28960 
C'<L28970 
C?'L28930 
C*L28990 
C"L29000 
C'«L29niC 
C''L29020 
C»'L29030 
CT»L7904a 
CHL29050 
C''L29060 
C^L29070 
CWL29080 
C''L29090 
C!^L29100 
CML29110 
C'1L29120 
C^L29130 
C»L29140 
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002234 
002238 
00223C 
002240 

002244 
002248 
00224C 
002250 
002256 
002258 



00225C 
002260 
002262 
002266 
00226A 

00226E 

002274 



00227A 
00227C 
002280 
002284 
002288 
00228C 
002290 
002294 

002298 
00229C 
0022AO 
0022A4 
0022AA 
0022AC 
0022BO 
0022B4 
0022B8 
0022BC 

0022CO 
0022C4 



0022C8 
0022CA 
G022CE 



C8A0 3531 
40A0 17A2 
40AO 175A 
415:0 3F94 

41F0 3AFA 
C580 0009 
4330 225C 
FA90 0000 0020 
2681 
4300 2212 



C890 0140 

2481 

C820 OOOF 

C830 0Q1E 

41F0 9F20 =004181. 

8C20 4000 399A 
0339 4000 3110 



9577 

C470 OOOF 
C570 0001 
4330 2298 
C8A0 3532 
40AO 17A2 
40A0 175A 
41E0 3F94 

41F0 3B06 

C580 0009 

4330 22B0 

FA90 0000 0020 

2631 

4300 2262 

C820 OOOF 

C830 001E 

C890 0140 

41F0 9ECE =0Oai8F 

8C20 399A 
2339 3110 



9577 

C470 OOOF 
C570 3002 



2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 

2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 

2959 
2960 
2961 
2962 
2963 
2964 
2965 



SET5.03 



SETS. 04 
SETS. 05 



LHI 
STH 
STH 
SAL 

BAL 

ClHI 

BE 

AI 

AIS 

B 



LHI 
LIS 

LHI 
LHI 
BAL 



R10,C'5V 
B10,EHB{rO 
S10,NOEEF 
SET.CCHG 

LINK,PKCHK 
H8,9 
SETS. 04 
R9,32 
R8,1 
SETS. 02 



R9,320 
R8,1 
R2,15 
S3, 30 
LINK,REST3 



LOAD ERROR SO 

STORE 

SET ERR FLAG 

ERROR 51 EXP CC=0010 NOT RETURNED 



9'S 



GO CHECK DIGITS 

DONE ALL PASSES 1 ■ S TO 

YES CONTINUE 

ADD LENGTH INCREMENT 

INCREMENT PASS COUNT 

LOOP TIL ALL PASSES DONE 



LOAD INDEX TO 1ST NEG UNPACKED SRC 

PASS COUNT 

LOAD DEST LENGTH 

LOAD SRC LENGTH 

SAVE INSTRUCTION 



ADR 



PMV R2,PKDEST(R0,R0),H3,UPKSRC(R9,R0) 



PMV aX3,RX3 R9=INDEX TO NEGATIVE STRINGS 



SETS. 06 



SETS. 07 



EPSR 

NHI 

CLHI 

BE 

LHI 

STH 

STH 

BAL 

BAL 

CLHI 

BE 

AI 

AIS 

B 

LHI 

LHI 

LHI 

BAL 



E7,R7 

R7,X'F' 

R7,X'1' 

SETS. 06 

R10,C'52' 

R10,ERRNO 

R10,SOERR 

RET,CCNG 

LINK,PKCHK1 

P8,9 

SETS. 07 

B9,32 

R8,1 

SETS. 05 

E2,15 

R3,30 

F9,320 

LINK,REST3 



CAPTURE CONDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 0001 [0PN1] < 

CC OK, CONTINUE 

LOAD ERROR SO 

STORE 

SET ERS FLAG 

ERROR 52 EXP CC=0001 NOT RETTJRNED 

CHECK DIGITS AND NEG SIGN 

CHECK PASS COUNT 

COKTISUS 

INCRE!!SNT BY LENGTH 

INCREBENT PASS COUNT 

LOOP TIL ALL PASSES DONE 

LOAD DEST LENGTH 

LOAD SEC LENGTH 

LOAD INDEX 1ST NEG UNPACKED SRC 

SAYS INSTEUCTIOS ADR 



F>!VA R2,PKDEST,R3,UPKSEC(R9) 



PMVA RX1,RX1 
C BIT IS SET, 

EPSS 
NHI 

CLKI 



USE NEG NUMBER TO CHECK FORCE SIGN POS 
R9 INDEX TO NEGATIVE STRING 



P7,R7 

B7,X'F' 

Er,X'2" 



CAPTURE CONDITION CODE 
MASK TO GET CC 
CHECK THAT CC = 0010 



C'?L291S0 
C''L29160 
C'<L29170 
C'^L29180 
C'?L29190 
CSL29200 
CfL29210 
CfL2Q220 
Cl>fL29230 
C'fL29240 
CfL29250 
C?fL29260 
CWL29270 
C»L?9280 
CNL29290 
C1L29300 
C"L29310 
C1«L29320 
CyL29330 
C'^L29340 

C''L29350 
CPL29360 
CfL29370 
CyL29380 
C"L29390 
CHL2940P 
C'TL29mO 
CKL29420 
C''L2g430 
CHL29440 
CML29450 
CWL29460 
CfL29470 
C'TL29480 
CHL29490 
C«L29500 
CfL29510 
C''L29520 
C''L29530 
C'«L29540 
CNL29550 
C?'L29560 
CKL29570 
C?'L29S80 

C''L29S90 
C»!L296C0 
CWL29610 
CWL29620 
CML29630 
CHL29640 
CML29'=;?0 



P>?FVTnn<^ UBSMTw:: n« ntnc 
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-ST 



- PMV 







2966 


* 










FOR {0PS1] FORCED > 




C>;L29660 


0022D2 


4330 22E6 


2967 








3E 


SETS. 08 


CO OK, CONTINUE 




0*129670 


0022D6 


CBAO 3533 


2968 








LKI 


R10,C'53' 


LOAD ERROR NO 




CML29680 

j*^*»T ^^ /\ f^ f\ ^ 


002?Dft 


40A0 17A2 


2969 








STK 


RICESRSO 


STORE 




C^L29690 


0022DE 


40A0 175A 


2970 








STH 


R10,H0EEB 


SST ERR FLAG 




0*^129700 


0022E2 


41E0 3F94 


2971 








BAL 


RET,CCNG 


ERROR 53 EXP CC=0010 (FOR 


CED) 


C''L29710 






2972 
2973 


* 

* 










NO? RETURHSD 




C''L29720 
C''L29730 


0022E6 


41F0 3SFA 


2974 

2975 


SET5. 

* 


08 


3AL 


LIRK,PKCHK 


CHECK DIGITS 




C*L29740 
CML29750 


0022EA 


C820 0000 


2976 








LHI 


R2,0 


LOAD DEST LENGTH 




CWL29760 


0022EE 


C830 001E 


2977 








LKI 


B3,30 


LOAD SBC LENGTH 




C''L29770 

^m -mr ^ ^v ^K *^ f% A 


0022F2 


C890 0000 


2978 








LHI 


P9,0 


OFFSET 




C''L?9780 


0022F6 


41F0 9S94 =00m8E 


2979 
2980 


* 






BAL 


LINK,EEST3 


SAVE INSTRUCTION ADR 




C''L29790 
C''L29800 


0022FA 


3C20 399A 


2981 








PSV 


S2,PKDEST,E3, 


.UPKSRC 




C'^L2a810 


0022FE 


0330 3110 


2982 


* 


P«V sac = ZEROES TO CHECK LEAD ZERO THROW AWAY 




c:';L29e20 






2983 


* 














C''L29830 


002302 


9577 


2984 








EPSE 


R7,R7 


CAPTURE CONDITION CODE 




CWL29840 


002304 


C470 OOOF 


2985 








NHI 


R7,X'F' 


HASK TO GET CC 




CML29850 


002306 


C570 0000 


2986 








CLHI 


R7,X'0' 


CHECK THAT CC = 0000 




CHL^9860 

^^ If Y /^ ^^ n ^ /^ 


00230C 


4330 2320 


2987 








BE 


SETS. 09 


CC OK, CONTINUE 




C''L29870 


002310 


C8A0 3530 


2988 








LHI 


E10,C'50' 


LOAD ERROR NO 




CWL29880 

/% «r T ^\ n r^ ^\ f\ 


002314 


4OA0 17A2 


2989 








STH 


S10,EEEN0 


STORE 




CML29890 

^^ -Ef T ^ ^ ^\ ^ f\ 


002318 


40A0 175A 


2990 








STH 


R10,NOERS 


SET SEE FLAG 




C^L29900 


00231C 


41E0 3F94 


2991 
2992 


ic 






BAL 


RET,CCNG 


ERROR 50 EXP CC=0000 NOT 


RETURNED 


C''L29910 
C''L29920 


002320 


41F0 3AFA 


2993 


SE 


TS. 


,09 


BAL 


LINK.PKCHK 


CHECK DIGITS 




CML29930 


00232"* 


C820 0000 


2994 








LHI 


R2,0 


LOAD DEST LENGTH 




C'^L29940 


002328 


C830 0001 


?995 








LHI 


R3,1 


LOAD SRC LENGTH 




C*L79950 

rf^ %r ^ '^ rt rt ^ rt 


00232C 


CS90 0020 


2996 


SE 


T5. 


,10 


LHI 


R9,32 


OFFSET 




C"L29960 


032330 


41F0 9E5A =00418E 


2997 

2998 


* 






BAL 


LINK,REST3 


SAVE INSTRUCTION ADS 




C''L29970 
CWI29980 


00233U 


8C20 399A 


2999 








PflV 


R2,PKDEST,S3, 


,UPKSHC(S9) 




C^L29990 


002338 


0339 3110 


3000 


* 


SRC : 


IS 1 OR 


MORE LARGER ' 


FHAN DEST CAN HANDLE TO SET OVF FLAG 


CML30000 






3001 


* 














C''L30010 


00233C 


9577 


3002 








EPSR 


87, R7 


CAPTURE CONDITION CODE 




C'?L30020 


00233E 


C470 OOOF 


3003 








NHI 


R7,X'F' 


SASK TO GET CC 




CWL30030 


0023U2 


C570 0006 


3004 








CLHI 


R7,X'6* 


CHECK THAT CC = 0110 




C'^L30O40 


002346 


4330 235A 


3005 








BE 


SETS. 11 


CC OK, CONTINUE 




CLSOOSO 


00234A 


C3A0 3537 


3006 








LHI 


R10,C'57' 


LOAD ERROR SO 




CML30060 

>4 ^M V «^ /^ /^ '^ ^ 


00234E 


40ft0 17A2 


3007 








STH 


RIO.EEEHO 


STORE 




CHL30070 


002352 


40A0 175A 


3008 








STH 


R10,NOERR 


SET ERR FLAG 




C^LSOOSO 


002356 


41E0 3F94 


3009 
3010 


* 






BAL 


RETrCCNG 


ERROR 57 EXP CC=0110 NOT 


RETURNED 


C''L30090 
C"L30100 


00235A 


41F0 3AFA 


3011 


SE 


T5 


.11 


BAL 


LINK,PKCHK 


CHECK DIGITS 




CWL30110 


00235E 


0373 


3012 








LR 


E7,R3 


COPY SEC LENGTH 




C?!L30120 


002360 


1071 


3013 








SELS 


R7,1 


DIVIDE BY 2 TO COMPUTE ?!IN LEN REQ'D 


CfL30130 


\J V £m ^ ^if ^^ 

002362 


2621 


3014 








AIS 


R2,1 


INCEEKENT DEST LENGTH 




CWL30140 


002364 


0527 


3015 








CLE 


R2,R7 


COMPARE WITH BIN REO'D 




CLSOISO 


002366 


4380 236E 


3016 








BNL 


SETS. 12 


LESS, LOOP 




C'?L3016C 
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00236A 4300 232C 

00236E 2631 

002370 C320 0000 

0023711 C530 001F 

002378 4380 2380 

00237C l»300 232C 

002380 Efi90 0280 

002384 2480 

002386 C820 0000 

00238A C930 0000 

00238E 41F0 9DFC =00418E 

002392 3C20 399A 

002396 0339 3110 



00239A 9577 

00239C C470 OOOF 

0023AO C570 OOOA 

0023A4 4330 23B8 

0023A8 C8A0 3538 

0023AC 40A0 17A2 

0023BO 40A0 175A 

0023B4 41E0 3F94 

0023B8 41F0 3AFA 

0023BC C580 0005 

0023C0 4330 23CC 

0023C4 2591 

0023C6 2681 

0023C8 4300 2386 

0023CC S590 0286 

OO23D0 2480 

0023D2 C820 0000 

0023D6 C830 0000 

0023DA 41F0 9DB0 =0C418E 

0023DE 8C20 399A 

0023E2 0339 3110 



0023E6 9577 

0023E8 C470 OOOF 

0023EC C570 OOOA 

0023FO 4330 2404 

0023F4 CBAO 3538 

0023F8 40A0 17A2 

0023FC 40AO 175A 



3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 

3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 

3058 
3059 
3060 
3061 
3062 
3063 
3064 
3055 
3065 
3067 



B SETS. 10 

* 

SET5.12 AIS S3,1 

LHI E2,0 

CLHI R3,31 

BNL SETS. 13 

B SETS. 10 

SETS. 13 LA R9,aEKDAT-UPKSRC 

LIS E8,0 

SETS. 14 LHI R2,0 

LHI 53,0 

BAL LINK,REST3 



LOOP TIL DONE 

INCREMENT SEC LENGTH 
CLEAR DEST TO HINIMUS LENGTH 
COMPARE SEC TO BAXIWUH LENGTH 
DONE, GO TO NEXT SECTION 
CONTINUE ALL SRC LENGTHS 

OFFSET TO INVALID DATA UNPACKED 
ZERO PASS COUNT 
LOAD DEST LENGTH 
LOAD SEC LENGTH 
SAVE INSTRUCTION ADR 



PMV R2,PKDEST,R3,UPKSEC(R9) 

SRC IS INVALID DATA ( INVALID DA-^A = 
UNPACKED SRC = 3A,3B,3C,3D,3E,3F 



A,3,C,D,E,F ) 



EPSR E7,E7 

NHI R7,X*F' 

CLHI S7,X'A* 

BE SETS. 15 

LHI H10,C'58' 

STH SIO.ESRNO 

STH R10,N0ERE 

BAL EET,CCNG 

* 

SETS. 15 BAL LINK,PK:CHK 

CLHI R8,5 

BE SETS. 15 

AIS S9,1 

AIS R8,1 

B SETS. 14 

* 

SETS. 15 LA R9,UPKSGN-UPKSEC 

LIS R8,0 

SETS. 17 LHI S2,0 

LHI H3,0 

BAL LINK,EEST3 



CAPTURE CONDITION CODE 

!!ASK TO GET CC 

CHECK THAT CC = 1010 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 58 EXP CC=1010 NOT EETPRNED 

GO TO CHECK DIGITS 

CHECK PASS COUNT 

DONE, CONTINUE 

INCREHENT TO NEXT INVALID DATA DIGIT 

INCREMENT PASS COUNT 

LOOP TIL ALL DONE 

OFFSET TO INVALID SIGNS UNPACKED 
ZERO PASS COUNT 
LOAD DEST LENGTH 
LOAD SRC LENGTH 
SAVE INSTRUCTION AD'? 



F«V E2,?KDEST,R3,UPKSRC(R9) 

SEC IS INVALID SIGNS ( INVALID SIGNS = 0,1,2,4,5,6,7,8,9 ) 
UNPACKED SRC = 03,13,23,43,53,63,73,83,93 



CAPTURE CONDITION CODE 

"{ASK TO GET CC 

CHECK THAT CC = 1010 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

5ST ERR FLAG 



BPSS 


E7,E7 


NHI 


R7,X'F' 


ClHI 


57,X'A" 


BE 


SETS. 18 


LHI 


R10,C*58' 


STH 


R10,ERRNO 


STH 


E10,NOERR 



CJ«L3017C 
C«L30180 
CfL30190 
C'«L30200 
CWI30210 
C5L30220 
CCL30230 
C''L30240 
CWL30250 
C»'L30260 
C''L30270 
CML30260 
CHL30290 
CBL30300 
CLSOSIO 

CHL30320 
CML30330 
CHL30340 
CML30350 
C"L30360 
CWL30370 
G«L30380 
C?!L30390 
C>5L304O0 
C1«L30410 
CHL30420 
C»fL30430 
CirL30440 
C?!L30450 
C'«L30460 
CHL30470 
C"L30480 
CWL30490 
CWL30500 
CFL30510 
CHL30520 
C?!L30530 
C'?L30S40 
CfL30550 
C«IL30560 
C'>!L30570 

CWL30580 
C»fL30=;90 
CWL30600 
CfL30610 
CML30520 
C'iL30630 
C'5L30640 
CML30650 
C1L30660 
CML30670 
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= ?'V 



0025.00 


alEO 


3F94 


0C240i 


41F0 


3SFII 


oc2"0e 


C5S0 


000 8 


0C2i;0C 


43 30 


2418 


0G2ii1C 


26 91 




002U12 


2631 




0021*14 


4300 


23D2 


0C2!J18 


U300 


OKSA 



3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 



SETS. 18 



SST5.19 



5?.L 


RET,CCNG 


3?.L 


LI!!K,PKCHK 


CIKI 


SB, 8 


3E 


SETS. 19 


nlS 


R9,1 


AIE 


38,1 


p 


SETS. 17 



TSTEHD 



ER50R 58 EX? CC=101Q NOT RETURNED 



GO TO CHECK DIGITS 
CHECK PASS COUNT 
DONE, CONTINUE 
INCREMENT TO NEXT INVALIL 
INCREMENT PASS COUNT 
LOOP TIL All DONE 



SIGN DIGIT 



EXIT TEST 5 



C«I30680 
CML30S90 
C-L30700 
€"130710 
C»L30720 
C??L30730 
CML30740 
C«!130750 
C'*t30760 
C"L30770 
€"130780 
C«L30790 
CWI30800 
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3082 


* 














, 






C'«L30820 








3083 


**ii*ir*ii-k******ic*1t**-k*-k***ic-k******ir1c*-k***-k****1^1r**ir*1r*ic****ir*iiifir*ir**** 


CHL30830 








3084 


* 


















* 


CWL30840 








3035 


* 








TEST 


6 - 


UMV (UBVA) 




* 


CYL30S50 








3086 


* 


















* 


CML30860 








3087 


* 






CONVERT PACKED 


DECIHAL 


DATA FROM SOURCE AREA 


TO 


* 


C*!L30870 








3088 


* 






UNPACKED DECIMAL DATA AND HOVE TO DESTINATIOS 


[ AREA. 


* 


CWL30880 








3089 


* 


















* 


CHL30R90 








3090 


* 






UMVA (FORCE RESULT 


POSITIVE - C BIT = 1). 




* 


CHL30900 








3091 


* 


















* 


CHL30910 








3092 


********************************************************************* 


C?fL30920 








3093 


* 




















C''L30930 








3094 


* 




















C«L30940 




0000 


241C 


3095 


TEST6 




EQU 


* 












CrL30950 








3096 


* 




















CMLSOgSO 


002mc 


C320 


001E 


3097 


S5 


!T6 




LHI 


R2,30 






SET DEST LENGTH 






CWL30970 


002420 


C830 


OOOF 


3098 








LHI 


53,15 






LOAD SRC LENGTH 






CML30980 


002U2U 


2490 




3099 








LIS 


R9,0 






ZERO INDEX 






CML30990 


002it26 


41F0 


9D64 =00418E 


3100 
3101 


* 






BAL 


LINK,EEST3 






SAVE INSTRUCTION ADS 






CML31000 
C«L31010 


00242A 


8C20 


39AA 


3102 








UHV 


R2,UPKDEST, 


.R3, 


PKSRC 








C'fL31020 


002a2E 


0430 


33A0 


3103 


* 




















CML31030 








3104 


* 


UMV 


EX1,HX1 


0PN2=1ST IN 


BUF 


TEUE 


ZERO CHECK 






C''L31040 








3105 


* 




















CML31050 


002432 


9577 




3106 








EPSR 


R7,R7 






CAPTURE CONDITION CODE 




CML31060 


002434 


C470 


OOOF 


3107 








NHI 


R7,X'F' 






MASK TO GET CC 






CML31070 


002438 


C570 


0000 


3108 








CLHI 


87,X'0' 






CHECK THAT CC = 0000 


[0PN1] = 





CML31080 


00243C 


4330 


2450 


3109 








BE 


SET6.01 






CC OK, CONTINUE 






C'?L31090 


002440 


CSAO 


3630 


3110 








LHI 


B10,C*60' 






LOAD ERROR NO 






CHL31100 


002444 


40A0 


17A2 


3111 








STH 


R10,EBENO 






STORE 






CML31110 


002448 


40A0 


175A 


3112 








STH 


S10,N0ERR 






SET ERR FLAG 






CHL31120 


00244C 


41E0 


3F94 


3113 








BAL 


RET,CCNG 






ERBOE 60 EXP CC=0000 


NOT RETURNED 


C''L31130 








3114 


* 




















CHL31140 


002450 


41F0 


3C12 


3115 


SET6.I 


31 


BAL 


LINK,UPKCK 






GO TO CHECK DIGITS 






CWL31150 


002454 


C390 


0010 


3116 








LHI 


89,16 






LOAD INDEX 1ST POS PACKED STRING 


C1L31160 


002458 


2481 




3117 








LIS 


Ti8,1 






LOAD PASS COUNT 






CKL31170 


00245A 


C820 


001E 


3118 


SET6,i 


02 


LHI 


B2,30 






LOAD DEST LENGTH 






CWL31180 


00245E 


C830 


OOOF 


3119 








LHI 


R3,15 






LOAD SRC LENGTH 






CWL31190 


002462 


41F0 


9D28 =00418E 


3120 
3121 


* 






BAL 


LINK,RBST3 






SAVE INSTRUCTION ADR 






CKL31200 
CHL31210 


002466 


8C20 




3122 








DCX 


8C20 






OP CODE, DEST REG 






CWL31220 


002468 


9540 




3123 








DC 


Z(UPKDEST-*-2+X"8000') 






C«L31230 


00246A 


0439 




3124 








DCX 


0439 






OP MOD, SRC BEG 






C''L31240 


00246C 


8F32 




3125 








DC 


Z(PKSRC-*-2+X' 


8000' 


) 






CfL31250 








3126 


* 


UMV 


EX2,BX2 


R9=INDEX 1ST PO 


SITIVE STRINGS 






CML31260 








3127 


* 




















CWL31270 


00246E 


9577 




3128 








EPSS 


R7,R7 






CAPTURE CONDITION CO" 


fE 




CWL31280 


002470 


C470 


OOOF 


3129 








NHI 


B7,X'F' 






HASK TO GET CC 






C1L31290 


002474 


C570 


0002 


3130 








CLHI 


H7,X'2' 






CHECK THAT CC = 0010 


[0PN1] > 





CWL31300 


002478 


4330 


248C 


3131 








BE 


SET6.03 






CC OK, CONTINUE 






CML31310 


00247C 


C8A0 


3631 


3132 








LHI 


B10,C*61' 






LOAD ERROR NO 






C*L31320 


002480 


4DAD 


17A2 


3133 








STH 


E10,F5RN0 






STORE 






CWL31330 
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002481* 


4OA0 


175A 




002468 


41E0 


3F94 




00248C 


41F0 


3C12 




002490 


C580 


0009 




002494 


4330 


24A4 




002498 


?A90 


0000 


0010 


00249E 


2681 






0024A0 


4300 


245A 




0024A4 


C890 


OOAO 




0024A8 


2481 






0024AA 


C820 


001E 




0024AE 


CS30 


OOOF 




0C24B2 


41F0 


9CD8 


= 004 


002436 


3C20 


4000 


39 AA 


0024BC 


0439 


4000 


33A0 



0024C2 9577 

0024C4 C470 OOOF 

0024C8 C570 0001 

0C24CC 4330 24E0 

0024DO C8A0 3632 

0024D4 40A0 17A2 

0024D8 40A0 175A 

0024DC 41E0 3F94 

0024EO 41F0 3C1F 

0024E4 C580 0009 

0024E8 433C 24F8 

0024EC FA90 0000 0010 

0024F2 2631 

0024F4 4300 24AA 

0024F8 C920 001E 

0024FC C830 OOOF 

002500 C890 OOAO 

002504 41F0 9C86 =004181 

002508 3C20 39AA 

0O250C 2439 33A0 



002510 9577 

002512 C470 000? 

002516 C570 0002 

00251A 4330 252E 

00251E CSAO 3633 

002522 40Aa 17X2 



3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 

3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3152 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3171 
3172 
3173 

3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 



SET5.03 



SET6.04 



SET6.05 



STH 
BAL 

BAL 

CLHI 

BE 

AI 

AIS 

B 

LHI 

LIS 

LHI 

LHI 

BAL 



310,S0ERR 
5ET,CCHG 

LIKK,DPKCK 

58,9 

SET6.04 

P9,16 

R8,1 

SET6.02 

R9,160 

E8,1 

B2,30 

E3,15 

LIHK,REST3 



SET ESE FLAG 
EBEOB 61 EXP 



CC=0010 MOT SSTUFNED 



GO CHECK DIGITS 

DOSS ALL PASSES VS TO 9*S 

YES CONTINUE 

ADD LENGTH INCS'fi'fENT 

ISCBEHENT PASS COUNT 

LOOP TIL ALL PASSES DOSE 

LOAD INDEX 1ST NEG PACKED SRC 

PASS COUNT 

LOAD DEST LENGTH 

LOAD SRC LENGTH 

SAVE INSTRUCTION ADS 



UKV R2,UPKDKST(3C,P0),33,PKS3C(P9,H0) 



* UMV RX3,RX3 S9=INDEX 1ST NEGATIVE STRINGS 



SET6.06 



SET5.07 



SPSR 

NHI 

CLHI 

BE 

LHI 

STH 

STH 

BAL 

BAL 

CLHI 

BE 

A I 

AIS 

B 

LHI 

LHI 

LKI 

BAL 



37, S7 

R7,X"F' 

R7,X' 1 ■ 

SET6.06 

510,C'62" 

E10,ERRNO 

R10,NOFRS 

SET,CCNG 

LINK,UPKCK1 

S8,9 

SET5.07 

59,16 

P. 8,1 

SET6.05 

32,30 

S3, 15 

59,160 

LINK,REST3 



CAPTURE CONDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 0001 [OPVI] < 

CC OK, CONTINUE 

LOAD ESBOR NO 

STORE 

SET ERR ^IKQ 

ERROR 62 EXP CC=C001 NOT BETHRNED 

CHECK DIGITS AND NEG SIGH 

CHECK PASS COUNT 

CONTINUE 

INCREKENT 3Y LENGTH 

INCREMENT PASS COUNT 

LOOP TIL ALL PASSES DONE 

LOAD DEST LENGTH 

LOAD SRC LENGTH 

LOAD INDEX 1ST NEG PACKED SRC 

SAVE INSTBUCTION ADR 



UKVA K2,U?KDEST,R3,PK?RC(R9) 



Uf!VA PX1,SX1 USE NEG NUHBEE TO 
C BIT SET, R9=INDEX TO NEGATIVE 



CHECK FORCE SIGN 
STRING 



POS 



EPSR 


R7,R7 


NHI 


E7,X'F" 


CLHI 


37,X*2' 


BE 


SET6.08 


LHI 


H10,C*63" 


STH 


R10,EEBNO 



CAPTURE CONDITION CODE 

WASK TO GET CC 

CHECK THAT CC = 0010 

FOR [0PN1] FORCED > 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 



CHL31340 
CML31350 
C"L31360 
C»L31370 
CML31380 
CLBISgO 
CVI31400 
C''13141C 
CXL31420 
CML31430 
C''L3144C 
C??L31450 
CML31460 
CML3147C 
C«L31480 
C'^L3149 

CyL31500 
C!?L31510 
C*'L31520 
CWL31530 
C*L31540 
C''L31S50 
C»L?1S60 
CfL31570 
CISISSO 
C?L31590 
CWL31600 
CYLSISIO 
CWX31620 
CWL31630 
C«L31640 
CWL31fi50 

c^LSiseo 

r'«L31670 
C''L31680 
CWL3169C 
C!^L31700 

CKL31710 
C^L31720 
C^L31730 

CXL31740 
C'^L31750 
CfL31760 
C'?L31770 
C1L317S0 
C'"L31790 
C»?L31800 
CML31B10 
€•^131820 
C«L31830 
C'»L318U0 
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002526 


40A0 


175A 


0G252A 


41E0 


3F94 


00252E 


41F0 


3C12 


002532 


C820 


0000 


002536 


C830 


OOOF 


00253A 


C890 


0000 


00253E 


41F0 


9C4C 


002542 


8C20 


39AA 


0025116 


0430 


33A0 


0025i(A 


9577 




00254C 


C470 


OOOF 


002550 


C570 


0000 


002554 


4330 


2568 


002558 


C8A0 


3630 


00255C 


40A0 


17A2 


002560 


40A0 


175A 


002564 


41E0 


3F94 


002558 


41F0 


3C12 


00256C 


C820 


0000 


002570 


C830 


0001 


002574 


CB90 


001F 


002578 


0B93 




00257A 


41F0 


9C10 


00257E 


3C20 


39AA 


002582 


0439 


33A0 


002586 


9577 




002588 


C470 


OOOF 


00258C 


C570 


0006 


002590 


4330 


25A4 


002594 


C8A0 


3637 


002598 


40A0 


17A2 


00259C 


40A0 


175A 


0025AO 


41E0 


3F94 


0025A4 


41F0 


3C12 


0025A8 


0873 




0025AA 


1171 




0025AC 


2521 




0025AE 


0527 




0025B0 


4380 


25B8 


0025B4 


4300 


2574 



=004182 



=00418F 



0025B8 



2631 



3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 

3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 

3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3225 
3227 
3228 
3229 
3230 
3231 
3232 
3233 
3234 
3235 



STH 

BAL 



R10,N0ESB 
EET,CCNG 



SET5.08 BAL LINK,OPKCK 



LHI 
LHI 

LHI 
BAL 



E2,0 
P3,15 
B9,0 
LINK,REST3 



SET ERE FLAG 

ERROR 63 EXP CC=0010 (FORCED) 
MOT EETUSHED 

CHECK DIGITS 

LOAD DEST LENGTH 

LOAD SRC LENGTH 

OFFSET 

SAVE INSTRUCTION 



ADR 



UMV R2,UPKDEST,H3,PKSRC 
mv SRC = ZEROES TO CHECK LEAD ZERO THROW AWAY 



EPSR 

SHI 

CLKI 

BE 

LHI 

STH 

STH 

BAL 

SET6.09 BAL 
LHI 
LHI 

SET6.10 LHI 
SE 
SAL 



R7,E7 

P7,X'F' 

R7,X"0' 

SET6.09 

R10,C"60' 

R10,ERRNO 

R10,HOEER 

RET,CCNG 

LINK,UPKCK 
E2,0 

R3,1 
R9,31 
R9,R3 
LmK,EEST3 



CAPTDBE CONDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 0000 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 60 EXP CC=0000 NOT EETrSNED 

CHECK DIGITS 

LOAD DEST LENGTH 

LOAD SRC LENGTH 

OFFSET TO LAST DIGIT SRC WITH SIGN 

ADJUST START ADR TO REFLECT LENGTH 

SAVE INSTRUCTION ADS 



UHV E2,0PKDEST,H3,PKSEC(E9) 
SEC IS 1 OR MORE LARGER THAN DEST CAN HANDLE TO SET OVF FLAG 



SET6.11 



EPSS 

NHI 

CLHI 

BE 

LHI 

STH 

STH 

BAL 

BAL 

LR 

SLLS 

AIS 

CLE 

BNL 



SET6.12 AIS 



H7,R7 

R7,X'F' 

S7,X*6' 

SET6.11 

R10,C'67' 

R10,ERRNO 

R10,N0EaE 

RET,CCNG 

LINK,UPKCK 

R7,S3 

57,1 

R2,1 

82, E7 

SET5.12 

SET6.10 

R3,1 



CAPTURE CONDITION CODE 

aASK TO GET CC 

CHECK THAT CC = 0110 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ESR FLAG 

ERROR 67 EXP CC=0110 NOT HET'ISNED 

CHECK DIGITS 

COPY SRC LENGTH 

MULTIPLY BY 2 TO COMPUTE KIN LPN RE'" 

INCEEKENI DEST LENGTH ' ' * 

COMPARE WITH MIN REQ'D 

LESS, LOOP 

LOOP TIL DONE 

INCREMENT SRC LENGTH 



CWL31850 
CWL31360 
CML31870 
C«L31880 
CML31890 
CKL31900 
CML31910 
CWL31920 
C»!L31930 
C»'L31940 
CML31950 
C«L31960 

C'^L31970 
CHL31980 
C'?L31990 
CfL32000 
CML32010 
C'»L32020 
C'»L32030 
C'fI32040 
C!'L32050 
CKL32060 
C>;L32070 
CML32080 
CWL32090 
C>fL32100 
C^L32110 
CSL32120 
C1'L32130 
^132140 
CKL32150 

CTL32160 
C"tL32170 
CfL32180 
CML32190 
C?L32200 
CaL32?10 
CHL32220 
C?fL32230 
CWL32240 
C>fL32250 
CWL32260 
C'fL32270 
C*L32280 
C!{L32290 
C»fL32300 
CWL32310 
C'(L32320 
Cfl32330 
CML32340 
C«L32350 
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05/03/31 



TSST 5 



U>!V 



0025BA C820 0000 

0025BE C530 0010 

0025C2 U380 25CA 

0Q25C6 4300 2574 



0025CA 
0025CE 
0025D0 
0025D4 
002538 

0025DC 
0025E0 



0025E4 
0025E6 
0025EA 
0025EE 
0025F2 
0025E6 
0025FA 
0025FE 

002602 
002606 
00260A 
00260E 
002610 
002612 

002616 
n0261A 
00261C 
002620 
002624 

002628 
002*20 



002630 
002632 
002636 
00263A 
00263E 
002642 
002646 
00264A 

00264E 
002662 



i;690 0130 

2430 

C820 0000 

CS30 0000 

41F0 9BB2 =00418F 

SC20 39AA 
0439 33A0 



9577 

C470 OOOF 
C570 OOOA 
4330 2602 
CSAO 3638 
40A0 1''A2 
40AO 175A 
41E0 3F94 

41F0 3C12 

C580 0005 

4330 2616 
2591 
2681 

4300 25D0 

E690 0135 

2480 

C820 0000 

C830 0000 

41F0 9366 =00418- 



8C20 39AA 
0439 33A0 



9577 

C470 OOOF 
C570 OOOA 
4330 254E 
CBAO 3638 
40A0 17A2 
40A0 175A 
41E0 3F94 

41F0 3C12 
C580 0008 



3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 

3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3252 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 

3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 



LHI P2,0 

CLHI 53,16 

BNL SET6.13 

B SET6.10 

* 

SET6.13 LA R9,PKDAT-PK?SC 

LIS ?8,0 

SET5.14 LHI H2,0 

LHI ?3,0 



BAI 



LIKK,REST3 



CLEAB DEST TO KISIHU!5 LENGTH 
COKPABS 3HC TC !<AXIMUM LENGTH 
DONE, GO TO VEXT SECTION 
CONTINUE ALL SRC LENGTHS 

OFFSET TO INVALID DATA PACKED 
ZERO PASS COUNT 
LOAD DEST LENGTH 
LOAD SBC LENGTH 
SAVE INST3UCTX0H AD3 



SRC I 

PACKE 



UWV R2,UPKDEST,S3,?KSBCC59) 

3 INVALID DATA ( INVALID DATA = A,B,C,D,i 
D SRC = A3,B3,C3,D3,E3,F3 



SET6.15 



sEre. 16 

SETS. 17 



EPSE R7,R7 

NHI ?.7,X'F' 

CLHI =7,X"A' 

BE SET6.15 

LHI 510,C'68' 

STH S10,EHRN0 

STH B10,N0EEE 

BAL ?ET,CCNG 

BAL LINK,UPKCK 

CLHI E8,5 

BE SET6.16 

AIS R9,1 

AIS E3,1 

B SET6.14 

LA B9,PKSGN-PKSRC 

LIS 38,0 

LHI 52,0 

LHI 33,0 

BAL LISK,3EST3 



CAPTURE CONDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 1010 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 58 EXP CC=1010 HOT RETURNED 

GO TO CHECK DIGITS 

CHECK PASS COUNT 

DONE, CONTINUE 

INCRE?!ENT TO NEXT INVALID DATA DIGI'^ 

INCREMENT PASS COUNT 

LOOP TIL ALL DOSE 

OFFSET TO INVALID SIGNS PACCKED 
ZERO PASS COUNT 
LOAD DEST LENGTH 
LOAD SRC LENGTH 
SAVE INSTRUCTION ADS 



OMV S2,UPKDEST,R3,PKSRC(39) 

SRC IS INVALID SIGNS ( INVALID SIGNS = 0,1,2,4,5,5,7,8,9 ) 

CAPTURE CONDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 1010 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

e'er FgR FLAG 

ERROR 68 EXP CC=1010 NOT RETURNED 

GO TO CHECK DIGITS 
CHECK PASS COUNT 



EPSR 


E7,a7 


NHI 


R7,X'F' 


CLHI 


R7,X"A' 


BE 


SET6.18 


LHI 


310,C'68' 


STH 


R10,EKSN0 


STH 


BIO.HOEHE 


BAL 


RET,CCNG 


BAL 


LINK,UPKC 


CLHI 


E8,3 



CiLS 
CWL3 
CML3 
CnL3 
CWL3 
CML3 
CLS 
CXLS 
CLS 
CIS 
C^LB 
CML3 



2360 
2370 
2380 
2390 
240G 
2410 
2420 
2430 
2440 
2450 
2460 
2470 



CrL32480 
C''L32490 
C'?L32500 
C''L32510 
CfL32520 
C'^L32530 
C'<L32540 
C'*L32550 
CWL32560 
C'«L32570 
C''L32580 
C''L32590 
C''L32600 
CWL32610 
C'*132620 
CHL32630 
CWL3264n 
CfL32fi5C 
C''L32660 
C"'L32670 
C7L32680 
C'?L32690 
C'«I32T00 
CKL32710 
C''L32720 
C^L32730 

CML32740 
CyL32750 
CrL32760 
C''L32770 
C''L32730 
C*'L3->790 
C«L32B00 
Cf?L37S1C 
C'»132820 
CWL32830 
C'«L3284C 
C«L32S50 
C'<L32860 
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TEST 6 - UMV 

nn^^^? o^o? ^^^^ ^^" ^^ SET5.19 DOKE, COSTIKUE C*L32870 

002 tr III] 'III "I r-' IKCREKEHT TO NEXT INVALID SIGN DIGIT C-fL 2 80 

U0265C 2681 3289 AIS H8,1 INCREMENT PASS COUNT 



00265E .300 261C 3290 n .IrL.. .^^^^S^^ .f !^=^LS°"^ ^C^HHH 



3290 B SET6,17 LOOP TIL ALL DONE 

3291 



002662 4300 OEEA 3292 SET6.19 B TSTEND EXIT TEST 6 "lI2920 

nil ! C1'L32930 

CWL329!;0 
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TEST 7 - aVTU 



0000 266S 

002666 2!t61 

002668 2H31 

00256A C800 OOFE 

00266E 2!*20 

002670 i+IFO 9AF« =001*166 

002674 8C50 3684 

002678 0030 3584 



00267C 9577 

00267E C470 OOOF 

002682 C570 0000 

002686 4330 269A 

00268R C3A0 3730 

00268E 40A0 17A2 

002692 40A0 175A 

002696 41S0 3F94 

00269A C840 3684 

00269E C?50 3734 

0026A2 41F0 9AEE =004194 

0026A6 C343 3584 

0026AA 0514 

C026ftC 4330 26C0 

0026B0 C8A0 3731 

0026B4 40a0 17X2 

0026B8 40A0 175A 

0026BC 41E0 9988 =004048 



3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3315 
3317 
3319 
3319 
3320 
3321 
3322 
3323 
3324 
3325 

3 326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 



+ *********«*****************■********< 



t************************»****** 



TEST 7 



SVTU 



?!OYE TRANSLATED UNTIL TERMIHATION (ESCAPE) 
CHARACTER IS DETECTED. 

ESCAPE CHARACTER CONTAINED IN BEG 

TRANSLATION TABLE ADDRESS CONTAINED IN REG 2 

IF REG 2=0 THEN NO TRANSLATION, BUT SOURCE 
CHAR IS CHECKED IF ESCAPE CHAB BATCH, IF REG 2 
IS NOS ZERO, THEN TRANSLATED CHAR IS CHECKED 
IE ESCAPE CHAR MATCH. 



********^ 



TEST7 



fc ***************************** ******* 



t*********^ 



t********** 



SET7 



ECU 


* 


LIS 


F6,1 


LIS 


P3,1 


LHI 


R0,X'FE' 


LIS 


R2,0 


BAL 


LINK, RESTORE 



LOAD INITIAL BYTE LENGTH 
LOAD INITIAL BYTE LENGTH 
LOAD TERF ESC CHAR 

TRANS TABLE ADR ZERO 
RESTORE ALL 



MVIO R6,0PN1,R3,0PN2 



* MVTU RX1,RX1 NO TRANS ESC CHAP NOT FOUND 0PN2 EXHAUSTED 



SFT7.01 



EPSR 

NHI 

CLHI 

BE 

LHI 

SIH 

STH 

BAL 

LHI 

LHI 

BAL 

LHI 

CLE 

3E 

LHI 

STH 

STH 

BAL 



R7,R7 

S7,X'F' 

R7,X"0' 

SET7.01 

310,C*7C' 

R10,ERHN0 

S10,N0ERP 

RET,CCNG 

R4,0PN1 

R5, MASTER 

IINK,MVTUCHK 

R4,0PN2(R3) 

R1,P4 

SET7.02 

R10,C'7T 

E10,EERN0 

RIO.NOERE 

RET, ADHERE 



CAPTURE CONDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 0000 0PK2 EXHAUSTED 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 70 EXP CC=0000 NOT EFTURNED 

LOAD DESTINATION ADR 

LOAD *!ASTEE ADR 

GO TO BYTE BY BYTE CHECK 

LOAD EXP NEXT SRC ADR 

COMPARE ACTUAL TO EXP SRC ADDRESS 

CHECK OK 

LOAD ERROR NO 

STORE 

SET EP? FLAG 

ERROR 71 REG 1 INCORRECT 



CML32960 
CHL32970 
CfLSSoaO 
C!^L32990 
C^LSSOOO 
CML33010 
C«L33020 
CML33030 
CFL33040 
CWL33050 
CKLSSOeO 
C*"L33070 
CfL33080 
CML33090 
CLBSIOO 
Cf?L33110 
CSL33120 
C?'L33130 
C»?L3314n 
CML331S0 
CML33160 
CLSSnO 
CFL33180 
C>'L33190 
C''L33200 
C''L33210 
C"L33220 
CWL33230 
C''L33240 
CML33250 

C''L33260 
C'?L33270 
C'"L33280 
C'?L33290 
C«L33300 
CHL33310 
C'«L33320 
C'«L33330 
CWL33340 
C"L33350 

C''L33370 
CFL33380 
CWL33390 
CFL3340O 
CHL33410 
CKL33420 
CWL33430 
C''L33440 
CT?L33450 
C'<L33460 
Ci'L33470 
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0026CO 


C530 


OOFF 


0026Ca 


4330 


26D2 


0026C8 


2651 




0026CA 


2531 




0026CC 


2701 




0026CE 


«300 


266E 



0026D2 
0026D1* 
0026D6 

0026DA 
0026DC 

0026EO 
0026E2 
0026E4 
0026E6 



0026E8 
0026EA 
0026EE 
0026F2 
0026F6 
0026FA 
0025FE 
002702 

002706 
00270A 
00270E 
002712 
002716 
002718 
00271C 
002720 
002724 
002728 

00272C 
002730 
002731* 
002736 
002738 
00273A 



00273E 



21*60 
2431 
C300 OOFE 

2420 

41F0 9A88 =004165 

8C60 
8FA0 
0030 
8E9C 



9577 

C470 OOOF 
C570 0004 
4330 2706 
C8A0 3732 
40A0 17A2 
40A0 175A 
41E0 3F94 

C840 3684 

C850 3784 

41F0 9A82 =004194 

C846 3584 

0514 

4330 272C 

C3A0 3731 

40A0 17A2 



40A0 175A 
41E0 991C 

C530 OOFF 
4330 273E 
2661 
2631 
2701 
4300 26DA 



2462 



=004048 



3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 



SET7.02 



CLHI 

BE 

AIS 

AIS 

SIS 

B 



E3,255 

SET7.03 

R6,1 

R3,1 

R0,1 

SET7 



SET7.03 



SET7.04 



LIS E6,0 
LIS R3,1 
LHI EO,X'FE' 



LIS 

BAL 



R2,0 

LINK, RESTORE 



CHECK IF ALL MOVES TRIED 
GO TO NEXT SECTION 
ISCRESENT FOR NEXT MOVE 
INCREMENT FOR NEXT MOVE 
DECREMENT ESC CHAR VALUE 
SETORN 



LOAD INITIAL BYTE COUNT 
LOAD INITIAL BYTE COUNT 
LOAD TERM ESC CHAR 

TRANS TABLE ADR ZERO 
RESTORE ALL 



DCX 
DC 
DCX 
DC 

* SVT'J EX2,RX2 

* 

EFSR 

NHI 

CLHI 

BE 

LHI 

STH 

STH 

BAL 



8C60 OP CODE,DEST REG 

Z(OPN1-*-2+X*8000* ) 

0030 

Z(OPS2-*-2+X'8000' ) 

SO TRANS ESC CHAR NOT FODND 0PN1 EXHAUSTED 



SET7.05 



LHI 

LHI 

BAL 

IHI 

CLR 

BE 

LHI 

STH 

STH 

BAL 

CLHI 

BE 

AIS 

AIS 

SIS 

B 



SET7.Q7 LIS 



SET7.Q6 



R7,R7 

H7,X'F' 

R7,X'4' 

SET7.05 

R10,C'72' 

R10,E8RNO 

RICNOERR 

HET,CCHG 

E4,0PN1 

R5, MASTER 
LINK,MVTUCHK 
.R4,aPN2(R6) 
K1,R4 
SET7.06 
R10,C'71' 
E10,EEEN0 
S10,N0ESR 
EET,ADREER 

H3,255 

SET7.07 

R6,1 

F3,1 

B0,1 

SET7.04 



E6,2 



CAPTURE CONDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 0100 0PN1 EXHAUSTED 

CC OK, CONTISUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 72, EXP CC=0100 NOT RETURNED 

LOAD DESTINATION ADR 

LOAD MASTER SDR 

GO TO BYTE BY BYTE CHECK 

LOAD EXP NEXT SEC ADR (USE R6 ) 

COBPAHE ACTUAL TO EXP SEC ADDRESS 

LOAD ESEOH NO 

STORE 

SET ERR FLAG 

ERROR 71 REG 1 INCORRECT 

CHECK IF DONE ALL PASSES 
GO TO NEXT SECTION 
INCEEMEST FOR NEXT MOVE 
IHCRFSENHT FOE NEXT MOVE 
DECREMENT ESC CHA3 VALUE 
RETURN 



LOAD INITIAL BYTE LENGTH 



CMI33480 
CML33490 
C'!L33500 
C'»L33510 
CML33=;20 
C!»L33530 
CM133"^4Q 
CLSSBSO 
CML33560 
C'»L33570 
CML33580 
C1L33590 
C'(L33600 
CHL33610 
CML33620 
CfL33630 
CWL33640 
C''L33650 
CML33660 
CWL33670 
C»fL33680 
CML33690 
C?'L33700 
C''L33710 
CML33720 
CML33730 
CrL33740 
C?'L33750 
C«L33760 
C'fL33770 
C1'L33780 
CML33790 
CrL338Q0 
CML33810 
CWL33820 
CML33830 
C''133840 
C»?L33850 
CML33860 
CML33870 
C'?L33880 
C1»L33890 
CyL33900 
CML3391Q 
CWI33920 
CYL33930 
CML33940 
C»!L33950 
C«L33960 
C?L33970 
CHL33980 
CML33990 
CSI34000 
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rsx 7 



KVTU 



00271*0 


2432 




3401 






LIS 


R3,2 


002742 


C300 OOFF 




3402 
3403 


* 




LHI 


RO,X'FE" 


02746 


2420 




3404 


SET7. 


08 


LIS 


E2,0 


002748 


41F0 9A1C ■ 


=004168 


3405 
3406 


* 




BAL 


LINK,RESTCEE 


? C0274C 


3C50 4000 . 


3684 


3407 






MVXU 


Bd,OPN1{SO,R0 


? 002752 


0030 4000 


35B4 


3408 


* 














3409 


* HVTU ?. 


X3,EX3 


so TBANS ESC 








3410 


* 








002758 


9577 




3411 






EPSR 


E7,R7 


00275A 


C470 OOOF 




3412 






NHI 


E7,X'F' 


00275E 


C570 0008 




3413 






CLHI 


E7,X'8* 


002762 


4330 2776 




3414 






BE 


SET7.09 


002756 


C8A0 3733 




3415 






LHI 


aiO,C'73' 


00276A 


40A0 17A2 




3416 






STH 


S10,ERRKC 


G0276E 


40R0 175A 




3417 






STH 


R10.NOERR 


002772 


41E0 3F94 




341S 
341S 


* 




BAL 


BET,CCKG 


002776 


C840 3684 




3420 


S£T7. 


,09 


LKI 


34,0PN1 


00277A 


C850 3784 




3421 






LKI 


85, MASTER 


00277E 


2761 




3422 






SIS 


R6,1 


002780 


2731 




3423 






SIS 


P3,1 


002782 


41F0 9A0E 


=004194 


3424 






BAL 


LIMK,KVTUCHK 


002786 


C843 3584 




3425 






LHI 


R4,0PN2(&3) 


00278A 


0514 




3426 






CLE 


S1,R4 


00278C 


4330 27A0 




3427 






BE 


SET7.10 


002790 


C3A0 3731 




3428 






LHI 


R10,C'71' 


002794 


40A0 17A2 




3429 






STH 


R10,EERN0 


002798 


40A0 175A 




3430 






STH 


S10,NOER3 


00279C 


41E0 98A8 


=004048 


3431 
3432 


* 




BAL 


RET,ADRERR 


0027AO 


C530 OOFF 




3433 


SET7, 


.10 


CLHI 


R3,255 


0027A4 


4330 27B2 




3434 






BE 


SET7.11 


0Q27A8 


2652 




3435 






AIS 


e6,2 


0027AA 


2632 




3436 






AIS 


R3,2 


0027AC 


2701 




3437 






SIS 


H0,1 


0027AE 


4300 2746 




3438 
3439 
3440 
3441 


* 




B 


SET7.08 


0027B2 


2451 




3442 


sf:t7 


.11 


LIS 


F6,1 


0027B4 


2431 




3443 






LIS 


R3,1 


0027B6 


C800 0001 




3444 
3445 


* 




LHI 


R0,X'01' 


0027BA 


C320 3584 




3446 


S^T7 


.12 


LHI 


E2,0PN2 


0027BE 


41F0 99A6 


=004168 


3447 

3443 


* 




BAL 


LIKK,SESTCEE 


0027C2 


8C60 3684 




3449 






KVTU 


H6,0PN1,R3,0 


0027C6 


0030 3564 















LOAD INITIAL BYTF LENGTH 
LOAD ?EFI< ESC CHAR VALUE 

TRANS TS3LE ADS ZERO 
ESSTCSE ALL 



CAPTURE CCNDITICS CODE 

KASK TO GET CC 

CHECK THAT CC = 1000 TERKINATIOS 

CC OK, CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR "73 EXP CC=100C NOT RETORSEP 

LOAD DESTINATION AOE 

LOAD !fASTER ADR 

DECEESENT TO POINT TO ACTUAL BYTE 

DECREMENT TO POINT TO ACTUAL BYTE 

GO TO BYTE BY BYTE CHECK 

LOAD EXP NEXT SEC ADR 

COMPARE ACTUAL TO EXP SRC ADDRESS 

LOAD ERROR NO 

STORE 

SET ERE FLAG 

ERROR 71 REG 1 INCORRECT 

CHECK IF DONE ALL PASSES 
GO TO NEXT SECTION 
INCREMENT FOR NEXT HOVE 
INCREMENT FOR NEXT HOVE 
DECREMENT ESC CHAR VALUE 
RETURN 



LOAD INITIAL BYTE LENGTH 
LOAD INITIAL BYTE LENGTH 
LOAD ESC CHAR VALUE 

LOAD TRANS TABLE ADR 
RESTORE ALL 



3450 



3451 * MVTU TRANSLATED ESC CHAE NOT FOUND 0PN2 EXHAUSTED 



0*134010 
CML34020 
^134030 
CML34040 
C"^L34050 
C"'L34060 
CML34070 

C!'L34030 

CL34090 

C''L34100 

CML34110 

C''L34120 

C'<L34130 

CML34140 

C^LSaiBO 

CWL34160 

C''L34170 

CML34180 

C''L34190 

C"L34200 

C'^L34210 

CML34220 

C''L34230 

C?'L34240 

C''L34?50 

C?'I34260 

C''L34270 

CML342S0 

CML34290 

CML34300 

C''L34310 

C''L34320 

C''I34330 

CWL34340 

C'«L34350 

CML34360 

rML34370 

C''L34380 

C«L34390 

CML34400 

CML34410 

CSL34420 

C'«L34430 

C?L34440 

CML34450 

C«L34460 

C''L34470 

C?'L344S0 

C«L34490 

CML34500 
CML34510 
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0027CA 9577 

0027CC Clt70 OOOF 

0027D0 C570 0000 

0027D4 i>330 27E8 

0027D8 C8A0 373U 

0027DC 40A0 17A2 

0027EO 40A0 175A 

0027E4 ttlEO 3F94 

0027E8 C840 3584 

0027EC C350 3384 

0027EO 41F0 99A0 =004194 

0027F4 C843 3584 

0Q27F8 0514 

0027FA 4330 280A 

0027FE CSAO 3735 

002802 40A0 17A2 

002806 41E0 983E =004048 

00280A C530 OOFF 

00280E 4330 281C 

002312 2661 

002814 2631 

002816 2601 

002818 4300 27BA 



00281C 


2461 




00281E 


2432 




002820 


C800 


OOFE 


002824 


C320 


3584 


002828 


41F0 


993C 


0C282C 


8C60 




00282E 


3E54 




002830 


0030 




002832 


8050 




002834 


9577 




002836 


C470 


OOOF 


00283A 


C570 


0004 


00283E 


4330 


2852 


002842 


C8A0 


3736 


002846 


40A0 


17A2 


00284A 


40A0 


175A 


00284E 


41E0 


3F94 


002852 


C840 


3684 


002856 


C850 


3884 



3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 



SET7.13 



SET7.14 



SET7.15 



SET7.16 



EPSR 

NHI 

CLHI 

BE 

LHI 

STH 

STH 

3AL 

LHI 

LHI 

BAL 

LHI 

CLB 

BE 

LHI 

STH 

BAL 

CLHI 

BE 

MS 

AIS 

AIS 

3 



LIS 
LIS 
LHI 

LHI 
BAL 



E7,R7 

H7,X'F* 

E7,X'0' 

SET7.13 

K10,C'74' 

E10,ERHN0 

R10,N0ESR 

RET,CCNG 

R4,0PN1 

E5,TRANSTAB 

LIKK.HVTUCHK 

B4,0PN2(R3) 

R1,R4 

SET7.14 

R10,C'75' 

R10,ERRN0 

RET,ADHEHR 

H3,255 

SET7.15 

R6,1 

R3,1 

R0,1 

SET7.12 



R6,1 

R3,2 
R0,X'FE" 

R2,0PN2 
LINK, RESTORE 



CAPTURE CONDITION CODS 

MASK TO GET CC 

CHECK THAT CC = 0000 0PN2 EXHAUSTED 

CC OK, CONTINUE 

LOAD ESEOE HO 

STORE 

SET ERE FLAG 

ERROR 74 EXP CC=0000 NOT RET'IENED 

LOAD DESTINATION ADR 

LOAD TRANS TABLE ADR 

GO TO BYTE BY BYTE CHECK 

LOAD EXP NEXT SEC ADR 

COMPARE ACTUAL TO EXP SEC ADDRESS 

LOAD ERROR NO 

STORE 

EBROa 75 REG 1 INCORRECT 

CHECK IF DONE ALL PASSES 
GO TO NEXT SECTION 
INCEEHENT FOR NEXT HOVE 
INGREDIENT FOR NEXT HOVE 
INCEEHENT ESC CHAE VALUE 
RETURN 



LOAD DESTINATION LENGTH 

LOAD SOURCE LENGTH 

LOAD TEEM ESC CHAR VALUE 

LOAD TRANS TABLE ADR 
RESTORE ALL 



DCX 
DC 
DCX 
DC 
* HVTU RX2,RX2 

EPSR 

NHI 

CLHI 

BE 

LHI 

STH 

STH 

BAL 



8C60 OP CODE,DEST REG 

Z(OPN1-*-2+X'8OO0" ) 

0030 OP HOD, SRC REG 

Z{OPN2-*-2+X'S000' ) 

TRANSLATION ESC CHAR NOT FOUND 0PS1 EXHAUSTED 



SET7.17 



LHI 

LHI 



R7,H7 

R7,X*F' 

R7,X'4' 

SET7.17 

H10,C*76' 

EICEERNO 

E10,NOEHS 

EET,CCNG 

E4,0PN1 
a5,TEANSTAB 



CAPTURE COSDITIOS 
MASK TO GE'T CC 
CHECK THAT CC = 
CC OK, CONTINUE 
LOAD ERROR HO 
STOEE 

SET ERE FLAG 
EHEOE 76 EXP CC 



:ODE 



0100 0PS1 EXHAUS'^ED 



0100 HOT RETURNED 



LOAD DESTINATION ADR 
LOAD TRANS TABLE ADR 



CHL34520 
C'fL34'=30 
CSL34540 
CHL34550 
C11L34560 
CHL34570 
C'?L34580 
CXL34590 
C"L34600 
C^L34610 
CWL34620 
CHL34630 
CTiL34640 
CHL34650 
CHL34660 
^"134670 
C«L34680 
C'<L34690 
C?!L34700 
C''L34710 
CfL34720 
C1L34730 
CML34740 
C1L34750 
CHL34760 
CWL34770 
CVL347a0 
CHL34790 
CWL34800 
CHL34810 
C«L34R20 
CWL34830 
CHL34840 
CHL34850 
C!'L34860 
C»!L34870 
CWL34S80 
CML34890 
C'<L34900 
Cl'L34910 
C»«L34920 
CI?L34930 
CHL34940 
CML34950 
CNL34960 
C"L3!i970 
CHL34980 
CHL34990 
CML35000 
CHL35010 
CML35020 
CHL35030 
CKL35040 
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TES' 


T 7 - 


KYTU 












002S5A 


iilFO 


9936 


=004194 


5505 




3AL 


LINK,SVTUCHK 


002£5S 


C346 


3534 




3506 




LHI 


P.4,0PN2(R6) 


002B62 


0=1" 






3507 




CIB 


51,54 


002364 


4330 


2874 




3506 




BE 


SET7.18 


002658 


CBAO 


3735 




3509 




LHI 


B10,C'75' 


C02S6C 


40A0 


17A2 




3510 




STH 


RICERRNO 


002870 


41E0 


97D4 


=004046 


3511 

3612 


* 


BAL 


R£T,ADBESR 


002874 


C530 


OOFF 




3513 


SET7.18 


CLKI 


E3,255 


0C2878 


4330 


2S86 




3514 




BE 


SET7. 19 


002S7C 


2661 






3515 




AIS 


ES,1 


002e7E 


2631 






3516 




AIS 


R3,1 


002880 


2501 






3517 




AIS 


E0,1 


002882 


4300 


2824 




3518 
3519 
3520 
3521 


* 
* 
* 


B 


SET7.16 


002886 


2462 






3522 


SET7.19 


LIS 


B6,2 


002888 


2432 






3523 




LIS 


R3,2 


00288A 


C300 


0001 




352ii 
3525 


* 


LHI 


HO,'X'01' 


00288E 


C820 


3584 




3526 


SE?''.1A 


LHI 


E2,0?N2 


002892 


41F0 


98D2 


=004168 


3527 

352B 


* 


BAL 


LINK, RESTORE 


002896 


8C60 


4000 


3684 


3529 




MVTU 


R6,OPN1(R0,R( 


00289C 


0030 


4000 


3584 


3530 


* 














3531 


* HVTU RX3,RX3 


TRANSLATED E! 










3532 


* 






002BA2 


9577 






3533 




EPSH 


R7,S7 


0028A1 


C470 


OOOF 




3534 




NHI 


R7,X'F' 


C026A8 


C570 


0008 




3535 




CLHI 


R7,X'8' 


0028AC 


4330 


28C0 




3535 




3S 


SET7.1B 


C028BO 


C8A0 


3737 




3537 




LHI 


R10,C'77' 


002SBU 


40A0 


17A2 




3538 




STH 


R10,ERRNO 


0028B8 


40A0 


175A 




3539 




STH 


ai0,S0EHR 


002SBC 


41E0 


3F94 




3540 
3541 


* 


BAL 


EET,CCNG 


002800 


CB40 


3684 




3542 


SET7.1B 


LHI 


R4,0PN1 


002BCy 


CS50 


3884 




3543 




LHI 


R5,TRASSTAB 


0026C8 


2751 






3544 




SIS 


^6,1 


002ECA 


2731 






3545 




SIS 


R3,1 


0028CC 


41F0 


98C4 


=004194 


3546 




BAL 


LINK,MVTUCHK 


0O28D0 


0343 


3584 




3547 




LHI 


R4,0PN2(R3) 


0028D4 


0514 






3548 




CLP 


E1,R4 


0028D6 


4330 


28EA 




3549 




BE 


SET7.1C 


0028DA 


CSAO 


3735 




3550 




LHI 


?10,C'75' 


0028DE 


40AO 


17A2 




3551 




STH 


RICERRNO 


0028E2 


40A0 


175A 




3552 




STH 


RICNOERP 


0028E6 


41E0 


975E 


=004046 


3553 
3554 


* 


SAL 


RET, ADHERE 


0028EA 


C530 


OOFF 




3555 


SET7,1C 


CLHI 


E3,255 


0028EE 


4330 


28FC 




3556 




BE 


SET7.1D 



QO TO BYTE BY BYl 
LOAD EXF NEXT SRC 



; CHECK 
AD? (USE R6) 



COMPARE ACTUAL TO EXP SRC ADDRESS 



LOAD ERROR NO 

STORE 

ERROR 75 REG 1 



IRCOHREOT 



CHECK IF DOSE AIL PASSES 
GO TO NEXT SECTION 
INCREMENT FOE NEXT KQVE 
INCRE?!ENT FOR NEXT HOVE 
INCREMENT ESC CHAR VALUE 
RETUEN 



LOAD INITIAL BYTE LENGTH 
LOAD INITIAL BYTE LENGTH 
LOAD TERM ESC CHAR VALUE 

LOAD TRANS TABLE ADR 
RESTORE ALL 



'o'AS FOUND LAST CHAR 0PH2 

CAPTURE CONDITION CODE 

MASK TO GET CC 

CHECK THAT CC = 1000 TERMINATION 

CC OK, CONTINUE 

LOAD SHROH NO 

STORE 

SET ERR FLAG 

ERROR 77 EXP CC=1000 NOT RETURNED 

LOAD DESTINATION APR 

LOAD TRANS TABLE ADR 

DECREMENT TO POINT TO ACTUAL BYTE 

D5CREHENT TO POINT TO ACTUAL BYT^ 

GO TO BYTE BY BYTE CHECK 

LOAD EXP NEXT SRC ADR 

COMPARE ACTUAL TO EXP SRC ADDRESS 



NO 



LOAD ERROR 

STORE 

SET ERR FLAG 

ERROR 75 REG 



1 INCORRECT 



CHECK IF DONE ALL PASSES 
GO TO NEXT SECTION 



CMLB'^O'^P 
C*L35060 
C'?L35070 
CLS^OBO 
CNLSSOgO 
C?'L35100 
CIB'^IIO 
C?'L35120 
CMLB-^ISO 
C'«L35140 
CML35150 
CML35160 
C!'L35170 
C''I35180 
C''L35190 
C''L35200 
C''L35210 
C''L35220 
CNL35230 
C"L3=240 
CWL35250 
C"L35260 
C''L352-'0 
C''L35280 
CFL35290 

C>'L35300 
C"I35310 
CWL35320 
C!'L35330 
C??L3534C 
CifL35350 
C''L35350 
C';L35370 
C''L3'^380 
CLSSSgO 
C'?L35400 
C!?L3'^410 
CfL35420 
CL 351(30 
CWL35440 
C^L35450 
CML35460 
C?1L35470 
C*:L3548Q 
C'»L35490 
C?'L35500 
CLSSSIO 
C'»L35520 
C^LBSSSO 
C''L35540 
C»^L35550 
C''L35560 



SEaiES 3200 C05HEBCIA1 INSTRUCTION SET TEST 05-238 BOO 
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0028F2 2662 

0028F'* 2632 

0028F6 2601 

0028F8 «300 288E 



0028FC 



4300 OEEA 



3557 






AIS 


R6,2 


3558 






AIS 


E3,2 


3559 






AIS 


E0,1 


3560 






B 


SET7.1A 


3561 


* 








3562 


-k 








3563 


* 








356« 


* 








3565 


SET7. 


,1D 


B 


TSTEND 


3566 


* 








3567 


•k 
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INCBEHENT FOR NEXT MOVE 
INCSEHENT FOE NEXT FOVE 
INCREMENT ESC CHAB VALDE 
HETURN 



EXIT TEST 7 



C''t35570 
CWL35580 
C?I135590 
C1I35600 
CHL35610 
CWL35620 
C'!L35630 
CWL356U0 
C''L35650 

cLsseeo 

C1«L35570 
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TEST 8 - II? 



0000 2900 

002900 48A0 186E 
002904 C830 2DBA 
002908 403A HKQO DODO 



00290E C800 OOEO 

002912 C870 0040 

002916 CSCO OOCO 

00291A 0799 

0C291C 4090 2DF0 

002920 C890 1040 

002924 CSDO 7QF0 

002928 C8B0 294E 

00292C 50BO 9974 =0042A4 

002930 2521 

002932 1021 

002934 2531 

002936 C850 2E08 

00293A CS50 351C 

00293E 98A9 

002940 9DA8 

002942 4280 293E 

002946 9EAC 

002948 95ES 

00294A 9EA7 



3569 
3570 
3571 
3572 
3573 
3574 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3533 

3584 

3585 

3536 

3587 

3588 

3589 

3590 

3591 

3592 

3593 

3594 

3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3508 

3609 

3610 

3611 

3612 

3613 

3614 

3615 

3616 

3617 

3618 

3619 

3620 

3621 



***************** 



**************************************************** 



*** 
** * 



* TEST 3 - INTERRUFTIEIE INSTRUCTION TEST 
* 

* **♦ SOTS: THIS TEST IS 05TIOKAL DUE TO THE REQUIREMENT 

* *** FOR A PRECISION INTERVAL CLOCK (PIC) USED TO 

* **« GENERATE INTERRUPTS. DEFAULT CLOCK ADDRESS *** 

* **♦ IS X'6C", ANY OTHER ADDRESS KUST BE ENTERED *** 

* *** VIA THE "PICADR" OPTICS IN THE OPTION TABLE. *** 
* 

* THIS TEST CHECKS '^HE IIP (INTERRUPTIBLE IKSTSUCTION IN PROGRESS) 

* BIT IN THE PSV FOR ABILITY TO BE SET DURING EXECUTION OF THE 

* INSTRUCTIONS STEP, U«V, MOVE, CPAN, SVTU, PMV, LPP . 

* THE INSTRUCTION EXECUTION IS THEN EXTERNALLY INTERRUPTED 

* BY THE PIC AND THE INT HANDLER CHECKS IF THE IIP BIT IS SET. 

* IF THE BIT CPSW BIT 14) IS SET, THE INSTRUCTION IS RESUMED. 

* UPON COMPLETION OF THE INSTRUCTION EXECUTION, THE IIP BIT IS 

* CHECKED TO DETERMINE IF IT HAS NOW BEEN BESET IN THE CURRENT PSW. 

* ERRORS IN SETTING/EESFTTING THE IIP BIT ARE PEIN'^ED AND THE TFST 

* ABORTED. IF NO ERROR DETECTED, THE RESULTS OF THE INSTRUCTION 

* ARE CHECKED AND IF CORRECT, THE NEXT SECTION IS RUN. 
********************************************************* 



t************ 



TESTS 



SETINT 



SETINT1 



SETPIC1 



EQU 

LH 

LHI 

STH 



LHI 

LHI 

LHI 

XR 

STH 

LHI 

LHI 

LKI 

ST 

LCS 

SKLS 

LCS 

LHI 

LHI 

WHR 

SSR 

ETC 

OCR 

EPSR 

OCR 



R10,PICADF+6 

P11,IIPINT 

E11,X'D0'(E10,R10) 



S0,X'E0' 

R7,X"40' 

P12,X*C0* 

R9,E9 

P9,IIPFLAG 

E9,X' 1040* 

R13,X"70F0' 

E 11, TESTS. 1 

ai1,INSTADR 

52,1 

R2,1 

B3,1 

E5, SEES. 02 

E6,SDEST 

E1C,R9 

S1C,E8 

B,SETPIC1 

E10,R0 

E 1 4 , R 1 3 

E10,S7 



LOAD PRECISION CLOCK ADR 
LOAD INT HANDLER ADR 
STORE HANDLER ADR TO TABLE 



LOAD PIC CMD DISAE!!/START 

LOAD PIC CMD ENABLE 

LOAD PIC CMD DISARM 

ZERO REG 9 

CLEAR IIP FLAG 

SET S=1 US, IC=54 US 

LOAD INT PSW 

LOAD TEST INSTRUCTION ADR 

STORE TEST INSTRUCTION ADR 

L0AD,E2 = FFFF FFFF 

SHIFT, REG 2 = 7FFF FFFF 

LOAD, REG 3 = FFFF FFFF 

LOAD EXP RESULT ADR 

LOAD DEST STRING ADR 

SET PIC RESOLUTION AND COUNT 

SENSE STATUS 

CHECK FOE OVEEFLOW 

DISAEM PIC AND START CLOCK 

ENABLE PROC INTS 

ENABLE PIC INTS 



CMI35690 
C''L35700 
CMI35710 
■^^'L 3 5720 
CXI35730 
C''L35''40 
nvr ■3c:7 c^ Q 

^135760 
C''L35770 
C''L35780 
C«135-'90 
C''L35P00 
CL35810 
C''L35820 
CLSSSSO 
C?:L35840 
C"L35850 
C"L35860 
C"L35870 
CML35880 
C''L35390 

CLssgoo 

C''L35910 
C«'L3592C 
C'«L35930 
CML35940 
C'!L35950 
CrL35960 
C>'L35970 
^135980 
C'^L35990 
C«L36000 
CISSOIO 
C''L36020 
r«L3f=030 
C'»L3'=040 
C''L36050 
C''L36060 
C''L36070 
C*L36080 
C''L36090 
CML3'=100 
CLSSIIO 
C''I36120 
CML36130 
CML36140 
CLSeiSO 
CXL36160 
C''L36170 
CrL361S0 
C«L36190 
CT'136200 
CML36210 
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002940 


030B 




3622 
3623 
3624 






BE 


aii 


ADE IN R11 FOE LOC COHPASE UPON INT 


C»L3«;220 








* 
* 










CSL3S230 


















CWL3P240 








3625 


* 


ISTERRUPTIBLE INSTR EXECUTION - 


- 3TBP 


C?'L36250 








3626 


* 


SOUBCE 


; IS REG 2, REG 3 = 7FFF 


FFFF FFFF FFFF 


01*136260 








3627 


* 


DESTINATION 


IS SDEST AS SOURCE 


FOR UHV NEXT 


C1L3S270 








3628 


* 










C?'L36280 


00294E 


SE20 


351C 


3629 
3630 


TEST8,1 


STEP 


R2,SDEST 




C''L3'^290 
C''L36300 








3531 


* 










CWL3P310 








3632 


* 


CONVERT REGS 


; CONTENTS TO 16 BYTES PACKED DECIMAL 


CtfL36320 


002952 


9EAC 




3633 
3634 


* 




OCR 


K10,812 


DISARM PIC 


C!«L36330 
CWL36340 


002954 


4890 


2DF0 


3635 


CHKSET1 


LH 


H9,IIPFLAG 


LOAD IIP FLAG 


C'!L3';3'^0 


002958 


4230 


2970 


3636 






BNZ 


CHKSET2 


IF IIP FLAG ZERO, ERROR 


C''L36360 


00295C 


C840 


3330 


3637 






LHI 


R4,C'80' 


LOAD ERROR NO 


Cf L36370 


002960 


4040 


17A2 


3638 






STH 


R4,EREN0 


STORE 


r•v^ •Sfi^on 


002964 


4040 


175A 


3639 






STH 


B4,H0ERR 


SET ERR FLAG 


V- - ij -1 ^J J O \J 

cf LS'^sgo 


002968 


41E0 


3SBC 


3640 






BAL 


RET, LINING 


ERROR 80 IIP FLAG = NO PIC INT 


C''L36400 


00296C 


4300 


2DA8 


3641 






B 


ENDUP 


ABORT TEST 


C"*L3641 


002970 


4220 


2988 


3642 
3643 


* 
CHKSET2 


BP 


CHKSET3 


IF IIP FLAG NEGATIVE, EBSOF 


CWL3S420 
Ci»L36430 


002974 


C84Q 


3831 


3644 






LHI 


R4,C'81" 


LOAD ERROR NO 


C»'L36440 


002978 


4040 


17A2 


3545 






STH 


R4,EREN0 


STORE 


C'"L36450 


00297C 


4040 


175A 


3646 






STH 


R4,N0ERR 


SET EE5 FLAG 


**J - . J^ ^J \J ^ -mj Kf 

C'!L36460 


002980 


41E0 


3F12 


3647 






BAL 


RET,IIPSETNG 


ERROR 81 PIC INT BUT IIP BIT NOT SET 


CWL36470 


002984 


4300 


2DA8 


3648 






B 


ENDUP 


ABORT TEST 


CWL36480 


002988 


95EE 




3649 
3650 


* 
CHKSET3 


EPSR 


R14,E14 


COPY CURRENT PS" 


CHL36490 
C?L36500 


00298A 


F3E0 


0002 0000 


3651 






TI 


R14,Y'00020000' 


CHECK FOR IIP BIT (14) RESET 


%iF ii JJ ^J \.- ^J XJ \J 

C''L3fi510 


002990 


4330 


29A8 


3652 






BZ 


SESIIP1 


NOT SET, OK CONTIN'IE 


C''L3fi520 


002994 


0840 


3832 


3653 






LHI 


S4,C'82' 


LOAD ERROR NO 


CBL36S30 


002998 


4040 


17A2 


3654 






STK 


R4,ERRN0 


STORE 


^^ 11 ^J ^J • - ^J ^ \f 


00299C 


4040 


175A 


3655 






STH 


R4,N0ERS 


SET ERR FLAG 


V- n Xj J .', J t \y 

C*L36550 


0029AO 


41E0 


3F1A 


3656 
3657 


* 




BAL 


SET,IIPRSSNG 


ERROR 82 IIP BIT SOT RESET 
IN CURRENT PSH 


CWL36560 
CWI36570 


0029A4 


4300 


2DA8 


3658 






B 


ENDUP 


ABORT TEST 


C'»L36580 


0029A8 


41F0 


3A50 


3659 
3660 


HE 
* 


:3IIP1 


BAL 


LINK,STBPCHK 


CHECK RESULT OF INSTRUCTION 


*-• ' jj '-J ^j -J ^ \j 

CSL3659C 

c^iseeoo 


0029AC 


48A0 


186E 


3661 
3662 


* 
SETINT2 


LH 


E10,PICADE+6 


LOAD PRECISION CLOCK ADR 


CWL36610 
C»'L36620 


0029B0 


CS60 


OOEO 


3663 






LHI 


P6,X'E0* 


LOAD PIC CKD DISARM/START 


CILSPeSO 


0029B4 


C870 


0040 


3664 






LHI 


5 7,X'40' 


LOAD PIC CKD ENABLE 


C''L36640 


0029B8 


C8C0 


OOCO 


3665 






LHI 


R12,X*C0" 


LOAD PIC CKD DISARM 


CLSfeSO 


0029BC 


0799 




3666 






XE 


R9,E9 


ZERO REG 9 


CSL36660 


0029BE 


4090 


2DF0 


3667 






STH 


E9,IIPFLAG 


CLEAR IIP FLAG 


C??L36670 


0029C2 


C890 


1020 


3668 






LHI 


H9,X'1020' 


SET E=1 US, IC=32 OS 


CMLS^SSO 


0029C5 


C8D0 


70F0 


3669 






LHI 


B13,X'70F0' 


LOAD INT PS» 


CML3669n 


0029CA 


C8B0 


29EE 


3670 






LHI 


R11,TEST9.2 


LOAD TEST INSTRUCTION ADR 


C«L36700 


0029CE 


50B0 


98D2 =0042R4 


3671 






ST 


EllflNSTADE 


STORE TEST INSTRUCTION ADE 


CWI36710 


0029D2 


F820 


0000 001E 


3672 






LI 


R2,30 


LOAD DEST LENGTH 


CKL36720 


0029DS 


F330 


0000 OOOF 


3673 
3674 


* 




LI 


R3,15 


LOAD SRC LENGTH 


C?IL36730 
CfL36740 
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8 - 



002gDE 


98A9 


002920 


9DA8 


0029E2 


U280 


0029E6 


9EA6 


0029E8 


9SED 


0029EA 


9FA7 


0029EC 


030B 



2SDE 



0029EE 8C20 39A^ 
C029F2 0430 351C 



0029F6 9EAC 

0029F8 1*390 2DF0 

0029FC 4230 2A1'4 

002A00 C840 3833 

002A0lt 4340 17A2 

002A08 4040 175A 

002A0C 41E0 3EBC 

002A10 4300 2DA8 

002A14 4220 2A2C 

002A18 CB40 3334 

0C2A1C 4040 17A2 

002A20 4040 175A 

002A24 41S0 3F12 

002A28 4300 2DA8 

002A2C 95EE 

002A2E F3S0 0002 0000 

002A34 4330 2A4C 

002A3S C840 3735 

002A3C 4040 1752 

002A40 4040 175A 

002A44 41E0 3F1A 

002A48 4300 2DA8 

002A4C E690 D018 

002A50 41F0 3C12 

002A54 4SA0 186E 

002A58 C860 OOEO 

002A5C C870 0040 

002A60 C8C0 OOCO 

002A64 0799 



3675 
3676 
3677 
3678 
3679 
3680 
3631 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 

3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3599 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 



SETPIC 



WHB 
SSR 

3TC 

0C2 

EPS? 

OCP 

3H 



? 10,39 

ai0,E8 

8 ,SETPIC2 

HI 0,36 

B 1 4 , ?. 1 3 

RIO, 57 

Ell 



SET PIC BESOll'TION AND COUNT 

SENSE STATUS 

CHECX FOR OVFPFLCV 

DISAR!* PIC AND START CLOCK 

ENABLE PROC IHT3 

ENABLE PIC INTS 

ADR IN ai1 FOR LOC COMPARE UPON INT 



INTEESUPTIBLE INSTR EXECUTION - UNPACK AND MOVE 
SOURCE IS 16 BYTES PACKED DECIMAL FSO!! 3T3P PREVIOUS 
DESTIHATICH CONTAINS 31 BYTE UNPACKED DECIMAL STRING 
AS SOURCE FOR KCVE NEXT 



TESTS. 2 UKV P2 ,UPKDEST,E3, SDEST 

* 

* UNPACK AND MOVE SDEST TO UPKDEST 

OCR 



RIO, 512 

CHKSET4 LH S9,IIPFLAG 

3SZ CHKSET5 

LHI S4,C'83* 

STH B4,ERRS0 

STH E4,N0ERR 

BAL RET,LINTNG 

3 ENDUP 
* 

CHKSET5 5P CHKSET6 

LHI R4,C'84' 

STK F4,ERRN0 

STH R4,N0EHR 

BAL SET,IIPSETNG 

B ENDUP 

CHKSET5 EPSE R14,R14 

TI P14,Y'00020000' 

3Z RESIIP2 

LKI ?4,C'75' 

STH R4,ESRN0 

STH ?4,N0ERR 

BAL RET,IIPSESNG 

* 

B LNDIIP 

EESIIP2 LA S9,L?3.02-PKSEC 

BAL LISK.UPKCK 

* 

SSTINT3 LK E10,PICAER+6 

LHI R6,X'E0' 

LHI S7,X'40' 

LHI R12,X'C0" 

XR R9,R9 



DISARM PIC 

LOAD IIP FLAG 

IF IIP FLAG ZERO, ERROR 

LORD ERROR NO 

STOKE 

SET ERR FLAG 

ERROR 83 IIP FLAG 

ABORT TEST 



NO PIC INT 



IF IIP FLAG NEGATIVE, ERROR 

LOAD ERROR NO 

STORK 

SET ERR FLAG 

ERROR 84 PIC INT BUT IIP BIT NOT SET 

ABORT TEST 

COPY CURRENT PSW 

CHECK FOR IIP BIT (14) RESET 

NOT SET, OK CONTINUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 75 IIP BIT NOT RESET 

IS CURRENT PSW 
ABORT TEST 

OFFSET TO RESULT FOR UPKCK 
CHECK RESULT CF INSTRUCTION 

LOAD PRECISION CLOCK ADR 
LOAD PIC CSD DISAEK/START 
LOAD PIC CMD ENABLE 
LOAD PIC CMD DISARM 
ZERO REG 9 



CLB 
CKL3 
Ci*L3 
€"13 
CML3 
CfL3 
CW13 
CLS 
C^L3 
CLS 
C^L3 
C»^L3 
C^L ^ 
CVL3 
CLS 
CLS 



6750 

feo 

6770 
6780 
6790 
6800 
6810 
6320 
6830 
6S40 
6850 
6860 
6870 
6880 
6890 
fiQOO 



C«L36910 
CML36920 
CLBSPBO 
C''L36940 
CWL36950 
CWL36960 
C''L36970 
C^L36980 
CLSegQO 
CML37000 
C''L37010 
C''L37020 
C«rL37030 
CML37040 
CXL37050 
C-'L37060 
C''L37070 
C'<L37080 
C«L37090 
C'?L37100 
C''L37110 
CfL37120 
CLB'^ISO 
CVL37140 
CnL3715 
C'fL37ie0 
C'!L37170 
C'?L37180 
C''L37190 
C1'L37200 
C«L37210 
C'«L37220 
C'«L37230 
C'«L372l»0 
C»?L37250 
C!»L37260 
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002S66 


IV090 


2DF0 




002A6A 


C890 


1020 




002A6E 


C8D0 


70F0 




0Q2A72 


C8B0 


2A96 




002A76 


50B0 


982A 


=004: 


002A7A 


F820 


0000 


001F 


002A80 


F8 30 


0000 


001F 


002Ae6 


98A9 






002A88 


9DA8 






002A8A 


4280 


2A86 




002A8E 


9SA6 






002A90 


95ED 






002A92 


3EA7 






002A9U 


030B 







002A96 8C20 3584 
002A9A 0130 39AA 



002A9E 9EAC 

002AA0 4890 2DF0 

002AA4 4230 2SBC 

002AA8 C840 3836 

002AAC 4040 17A2 

002AB0 4040 175A 

002AB4 41E0 3E3C 

002AB8 4300 2DA8 

002ABC 4220 2AD4 

002ACO C840 3637 

002AC4 4040 17A2 

002AC8 4040 175A 

002ACC 41E0 3?12 

002ADO 4300 2DA8 

002AD4 95EE 

002AD6 F3E0 0002 0000 

002ADC 4330 2AF4 

002AE0 C840 3838 

002AS4 4040 17A2 

002AE8 4040 175A 

00 2AEC 41E0 3F1A 

002AF0 4300 2DA8 

002AF4 C840 3534 



3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 

3750 
3751 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 



SETPIC3 



STH 

iHI 

LHI 

LHI 

ST 

LI 

LI 

WHP 
SSB 
BTC 
OCR 

EPSE 

oca 
ss 



E9,IIPFLAG 

F9,X'1020' 

R13,X'70F0' 

S11,TEST8.3 

S11,INSTADS 

E2,31 

33,31 

E10,39 

B10,R8 

S,SETPIC3 

810,86 

S14,R13 

S10,R7 

Ell 



CLEAE IIP FLAG 

SET R=1 US, IC=32 US 

LOAD INT PSV 

LOAD TEST INSTEUCTIOS ADR 

STORE TEST IS3T3UCTI0N ADR 

LOAD DEST LENGTH 

LOAD SBC LENGTH 

SET PIC RESOLUTION AND COUNT 

SENSE STATUS 

CHECK FOP OVERFLOW 

DISARM PIC AND START CLOCK 

ENABLE PRCC ISTS 

ENABLE PIC INTS 

ADR IN R11 FOR LOC COMPARE UPON 



INT 



INTERSUPTIBLE INSTR EXECUTION - HOVE 

SOURCE IS UNPACKED DECIMAL STRING FROM UMV PREVIOUS 

DESTINATION CONTAINS UNPACKED STRING AS SOURCE FOR CPAN NEXT 



TEST8.3 MOVE R2 ,0PN2 , R3 ,nPKDEST 



MOVE UPKDEST TO 0PN2 



CHKSET7 



CHKSET8 



OCR 

LH 

BNZ 

LHI 

STH 

STH 

BAL 

3 

BP 

LHI 

STH 

STH 

BAL 

3 

EPSR 

TI 

BZ 

LHI 

STH 

STH 

BAL 



HESIIP3 LKI 



CHKSET9 



R10,E12 

R9,IIPFLAG 

CHKSET8 

R4,C'86' 

34,ERRN0 

R4,N0ERR 

EET,LINTNG 

ENDUP 

CHKSET9 

R4,C'87* 

a4,ERRN0 

E4,N0ERE 

SET.IIPSETNG 

ENDUP 

E14,H14 

R14,Y'00020000' 

RESIIP3 

R4,C'88' 

S4,EERN0 

R4,S0EER 

RET,IIPEESNG 

ENDUP 
H4,0PN2 



DISARM PIC 

LOAD IIP FLAG 

IF UP FLAG ZEPO, ERROR 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 86 IIP FLA( 

ABORT TEST 



NO PIC INT 



IF IIP FLAG NEGATIVE, ERROR 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 87 PIC INT BUT IIP BIT NOT SET 

ABORT TEST 

COPY CURRENT PSV 

CHECK FOE IIP BIT (14) RESET 

NOT SET, OK CONTINUE 

LOAD ERROR SO 

STORE 

SET ERR FLAG 

ERROR 38 IIP BIT NOT RESET 

IN CUPRENT PSW 
ABORT TEST 
LOAD DEST ADP 



CML37270 
CLS'^SSO 
CML37290 
CMIS^SOO 
C'?L37310 
CML37320 
C''L37330 
CML37340 
C«!L3''350 
CML37360 
CHL37370 
CML37380 
C''L3-'390 
CKL37400 
CWL37410 
CML37U20 
CML37430 
CML37440 
C"L3745C 
C''L3''460 
C''L37470 
C''L37480 
CfL37U90 

C?'L3''50O 
CML37510 
CML37520 
C''L37530 
CML37540 
CWL37550 
CML37560 
C'"L37570 
C''L37580 
CHL37590 
CML37600 
^137610 
CWL3762C 
CML37630 
CML37640 
CML37650 
CML37660 
CML37670 
CML37680 
CML37690 
CXL37700 
C^L37710 
^137720 
C'*I37730 
CWL37-'40 
C''L37750 
C«L37760 
CML37770 
CML3778G 
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TEST 3 - Ilf 

00211^8 0850 39AA 

002AFC 41F0 96A0 =00mA0 

002300 U8A0 186E 

002501; C35Q OOEO 

002B08 C370 0040 

002BGC C8C0 OOCO 

002310 0799 

002312 4090 2DF0 

002B16 C390 1020 

002E1A C8D0 70FO 

002B1E C8B0 2B42 

002B22 50B0 977E =0042A4 

002E26 F320 0000 001F 

00232C F830 0000 001F 

002S32 98A9 
002B34 9DR8 
002B36 4280 2B32 
00233A 9EA6 
00233C 95ED 
002B3E 9SA7 
002B40 030B 



002342 
002B46 



002B4A 
002B4C 
002E50 
002B54 
002E58 
002B5C 
002B60 
002B64 

002358 
002B6C 
002B70 
002374 
002B7B 
002B7C 

002B80 
002B82 



8C20 39AA 
0230 3584 



9EAC 

U890 2DF0 
H230 2368 
C840 3339 
4040 17A2 
4040 175A 
mEO 3EBC 
4300 2DA8 

4220 2B80 
C840 3841 
4040 17A2 
4040 175A 
41E0 3F12 
4300 2!)A8 



95EE 

F3E0 0002 0000 



3779 
3780 

3781 

3782 

3783 

3784 

3785 

3786 

3787 

3783 

3789 

3790 

3791 

3792 

3793 

3794 

3795 

3796 

3797 

3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 

3810 

3811 

3812 

3813 

3814 

3815 

3816 

3817 

3818 

3819 

3820 

3821 

3822 

3823 

3824 

3825 

3826 

3827 

3828 

3829 

3830 



SETINT4 



SETPIC4 



LHI 
3AL 

LH 

LHI 

LHI 

LKI 

X5 

SIH 

LHI 

LHI 

LHI 

ST 

LI 

LI 

WHE 

SSE 

BTC 

OCE 

EPSS 

OCR 

9R 



E5,UPKDEST 
LINK,MVCHK 

alO,PICADR+6 

E6,X'E0' 

R7,X'40' 

R12,X'C0* 

K9,E9 

E9,IIPFLAG 

E9,X'1020' 

313,X"70F0' 

R11,TEST8.a 

EllrlNSTADS 

E2,31 

R3,31 

E10,R9 

R10,E8 

8,SETPIC4 

R10,R6 

R14,R13 

aiO,R7 

R11 



LOAD SRC ACR 

CHECK RESULT OF INSTRUCTION 

LOA" 135ECISI0N CLOCK ADE 

LOAD PIC C«D DISAR'f/STAET 

LOAD PIC CFD ENABLE 

LOAD PIC CSD DISARM 

ZERO REG 9 

CLEAR IIP FLAG 

SET R=1 US, IC=32 US 

LOAD INT PSW 

LOAD TEST INSTRUCTION ADE 

STORE TEST INSTRUCTION ADR 

LOAD DEST LENGTH 

LOAD SRC LENGTH 

SET PIC RESOLUTION AND COUNT 

SENSE STATUS 

CHECK FOR OVERFLOV 

DISARM PIC AND START CLOCK 

ENABLE PROC INTS 

ENABLE PIC INTS 

ADR IN R11 FOR LOC COHPASE UPON 



EST 



* INTERSUPTIBLE ISSTE EXECUTION - COMPARE 



•:^B:^M^^^^^^^^^^^i-^ 



TEST8.4 CPAN 32 ,DPKDEST,E3,0PN2 



* COMPARE 0PN2 TO UPKDEST 



OCE 
CHKSET10 LH 
BRZ 
LHI 
STH 
STH 
BAI 
B 
* 

CHKSET11 BP 
LHI 
STH 
STK 
BAL 
B 

* 

CHKSET12 EPSE 
TI 



R10,R12 

S9,IIPFLAG 

CHKSET11 

R4,C'89' 

R4,ESEN0 

E4,NCEEB 

HET,LINTNG 

EHDIIF 

CHKSET12 

R4,C'SA' 

E4,SRRN0 

R4,N0EER 

RET,XIPSETNG 

ENDUP 

E14,E14 
R14,Y"00020000* 



DISARM PIC 

LOAD IIP FLAG 

IF IIP FLAG ZERO, ERROR 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 89 IIP FLAG = NO PIC INT 

ABORT TEST 

IF IIP FLAG NEGATIVE, ERROR 

LOAD ERROR NO 

STORE 

epm ■pRT! FLAG 

error" 8A PIC INT BUT IIP BIT NOT SET 

ABORT TEST 

COPT CURRENT PS« 

CHECK FOR IIP BIT (14) 5ESE. 



Ci'L37790 

C'<L37300 

CML37810 

C1L37820 

CyL37830 

CML3784C 

C''L37850 

CMI37860 

CML37870 

C''L378B0 

C^L37890 

C'«L37900 

CLSTgiO 

C^L37920 

C'^L37930 

C'»L37940 

CWL37950 

C''L37960 

C'<L37970 

C''L37980 

CfL37990 

C*!L3fl0p0 

CML38010 

C'»L3«020 

CflBSOSO 

CML38040 

CWL38050 

c^Lseoeo 

CWL38070 
CKL380B0 

CLSSogo 

C^LSSIOO 

c^Lsgiio 

C*L38120 
CLSBIBO 
CML38140 
CLSaiBO 

c^Lseieo 

C"«L3S170 

C^LSSISO 

CLSBigO 

C''L38?00 

C»'L38210 

C'<L38220 

C«L38230 

C''L'P240 

C*L38250 

CHL3a260 

C''L38270 

^^138280 

CKL38290 

CWL38300 
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TEST 8 - IIP 



002B88 
002B8C 
002B90 
002B9U 
002B98 

002B9C 



002BAO 
002BAU 
002BA8 
002BAC 
002BB0 
002BB2 
002BB6 
002B3A 
0023BE 
002BC2 
002BC6 
002ECC 
002BD2 

002BD5 
002BD8 
0028DA 
002BDE 
002BEO 
002BE2 
002BEU 



002BE6 
0C2BEA 



002BEE 
002BF0 
002EF4 
002BFS 
00 2EFC 
002COO 
002C04 
0C2C08 

002C0C 



4330 28A0 
C3110 3842 
4040 17A2 
4040 175A 
41E0 3F1A 

4300 2DA8 
0000 2BAC 

43AQ 196E 

C860 OOEO 

C870 0040 

C8C0 COCO 

0799 

4090 2DF0 

0890 1020 

C8DQ 70F0 

CeSO 23E6 

5OB0 96DE =0042A4 

F830 0000 0011=' 

F800 0000 OOFE 

C820 3884 

98A9 

90A3 

4280 2BD5 

9EA6 

95ED 

9EA7 

030B 



8C30 3684 
0C30 3584 



9 SAC 

4890 2DF0 
4230 2C0C 
C840 3843 
4040 17A2 
4040 175A 
41S0 3E3C 
4300 2DA8 

4220 2C24 



3831 

3832 

3833 

3334 

3835 

3836 

3637 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

3846 

3847 

3848 

3849 

3850 

3851 

3852 

3853 

3854 

3855 

3856 

3857 

3858 

3859 

3860 

3861 

3862 

3863 

3364 

3865 

3866 

3867 

3868 

3869 

3870 
3871 
3372 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3381 
3882 



EESIIP4 



SETIN1 



SETPIC5 



BZ 

LKI 

STH 

STH 

BAL 

B 

EQU 

LH 

LHT 

LHI 

LHI 

XE 

STH 

LHI 

LHI 

LHI 

ST 

LI 

LI 

LHI 

WHE 

SSE 

BTC 

OCR 

EPSR 

OCR 

BR 



HSSIIP4 

E4,C'8B' 

E4,SRRSC 

R4,N0ERB 

RET,IIPRESNG 

ENDUP 



R10,PICADB+6 

E6,X'E0' 

R7,X'40' 

R12,X'C0' 

S9,R9 

E9,IIPrLAG 

Fi9,X'1020' 

R13,X*70F0' 

P11,TEST8.5 

E11,INSTADR 

S3, 31 

BO,X*FE' 

R2,THAHSTAB 

E10,B9 

E10,R8 

8,SETPIC5 

R10,P6 

R14,R13 

R10,R7 

R11 



SOT SET, OK COSTIN'JE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 8B IIP BIT NOT RESET 

IN CURRENT PS« 
ABORT TEST 
CPAN CHECKS ITSELF *** 

LOAD PRECISION CLOCK ADR 

LOAD PIC CPD DISARM/START 

LOAD PIC CMD ENABLE 

LOAD PIC CUD DISARM 

ZERO REG 9 

CLEAR IIP FLAG 

SET R=1 US, IC=32 OS 

LOAD INT PSW 

LOAD TEST INSTRUCTION ADE 

STORE TEST INSTRUCTION ADR 

LOAD SRC AND DEST LENGTH 

LOAD TEES ESC CHAR VALUE 

LOAD TRANS TABLE ADR 

SET PIC RESOLUTION AND COUNT 

SENSE STATUS 

CHECK FOR OVERFLOW 

DISARM PIC AND START CLOCK 

ENABLE PROC INTS 

ENABLE PIC INTS 

ADR IN R11 FOR LCC COMPARE UPON INT 



* INTERRUPTIBLE IRSTB EXECUTION - MOVE TRANSLATED UNTIL 

* SOURCE IS 31 BYTE UNPACKED DECIHAL STRING FROM CPAN PREVIOUS 

* DESTINATION CONTAINS 31 BYTE TRANSLATED STRING AS SOURCE FOE PMV NEXT 

* DESTINATION STRING REMAINS UNCHANGED BY USING TRANSTAB ENTRIES 



TESTS. 5 MVTU E3,QPS1 , R3 , 0PN2 



♦ MOVE TRANSLATED UNTIL 



OCR 
CHKSET13 LH 
BNZ 
LHI 
STH 
STH 
BAL 
B 

CHKSET14 B? 



R10,R12 

H9,IIPFLAG 

CHKSET14 

P4,C'8C' 

E4,EaEN0 

E4,N0ERR 

HET,IISTNG 

ENDUP 

CHKSET15 



DISAES PIC 

LOAD IIP FLA-r; 

IF IIP FLAG ZERO, ERROR 

LOAD ERROR SO 

STORE 

SET ERR FLAG 

ERROR ec IIP FLAG = NO PIC INT 

ABORT TEST 

IF IIP FLAG NEGATIVE, EBRO? 



Cr'1.38310 

CHL33320 

CKL3P33C 

C''L38340 

C»fL3S350 

C"L3B360 

CWL3837C 

CLSSSSO 

CLSBSgO 

CML38400 

C"L38410 

C'*L38420 

C'?L3P430 

C''L38440 

C'"L38450 

CFL38460 

C'<L38470 

^138480 

CWL38490 

C''L38500 

C''L38510 

CWL38520 

CKL38530 

C>IL3S540 

C'«L38550 

CWL33560 

C'1L38570 

CLSSSBO 

C'<L38590 

C1L38600 

ciaseio 

C1<L38620 

cfLSseso 

C''L33640 
CML3B650 
C"L3efi60 
C!'L33670 
CML3e680 
C»«L38S90 

C''L38700 
C''L38''10 
C''L38720 
C'«L38730 
C''L38740 
C'«L38750 
C^L3S760 
C''L387''0 
C'fL38780 
^138790 
CFL3S800 
C«L388iO 
C«L3?920 
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TilST S - IIP 

002C10 CSHO 3844 

002C14 4040 17R2 

002C18 4040 175A 

002C1C 41E0 3F12 

002C20 4300 2DA8 

002C24 95E^ 

002C26 F3S0 0002 0000 

002C2C 4330 2C44 

002C30 C840 3845 

002C34 4040 17A2 

002C38 4040 175A 

002C3C 41E0 3V1A 

002C40 4300 2DR8 

002C44 F830 0000 001F 

002C4A 0363 

002C4C C840 3684 

002C50 C850 3584 
002C54 41F0 953C =004194 

002C5S 48A0 186E 
002C5C CS50 OOEO 
002C60 C370 0040 
002C64 C8C0 OOCO 
002C68 0799 
002C6A 4090 2DF0 
002C6E C89Q 1020 
002C72 C8D0 70F0 
002C76 C830 2C9A 
002C7A 50B0 9626 =0042A4 
002C7E F820 0000 OOOF 
002CB4 F830 0000 001F 

002C8A 98A9 
002C8C 9DA8 
002C8E 4280 2C8A 
002C92 9EA6 
002C94 95EI) 
002C96 9EA7 
002C98 030B 



002C9A 
002C9E 



8C20 399A 
0330 3684 



3883 

3884 

3885 

3886 

3387 

3888 

3889 

3890 

3891 

3892 

3893 

3894 

3895 

3896 

3897 

3898 

3899 

3900 

3901 

3902 

3903 

3904 

3905 

3906 

3907 

3908 

3909 

3910 

3911 

3912 

3913 

3914 

3915 

3916 

3917 

3918 

3915 

3920 

3921 

3922 

3923 

3924 

3925 

3926 

3927 

3928 

3929 

3930 

3931 

3932 
3933 
3934 



LHI 
STH 
STH 
BAL 



CHSSET15 EPSK 
TI 
BZ 
LHI 
STH 
STH 
BAL 



SESIIP5 LI 
IE 
LHI 
LHI 
BAL 

* 

SETINT6 LH 
LHI 
LHI 
LHI 
XB 
STH 
LHI 
LHI 
LHI 
ST 
LI 
LI 
* 

SETPIC6 WHE 
SSR 
BTC 
OCF 
EPSH 
OCR 
BS 



B4,C'8D' 

E4,ERBN0 

R4,NCEER 

SET,IIPSETNG 

ESDIIP 

B14,R14 

E14,Y"00020000' 

EESIIP5 

R4,C'8E' 

Ra,ERBNO 

B4,N0EEB 

RET,IIPEESNG 

ENDUP 

E3,31 

B6,E3 

R4,0PN1 

B5,0PN2 

LISK,«VTUCHK 

S10,PICRDE+6 

t(6,X'E0' 

H7,X'40' 

R12,X'C0' 

S9,R9 

E9,IIPFLAG 

R9,X"1020' 

R13,X'70F0* 

Ell, TESTS. 6 

E11,INSTADE 

E2,15 

B3,30 

R10,B9 

R10,R8 

8,SETPIC6 

E10,E6 

B14,E13 

R10,H7 

Ell 



LOAD ESEOB NO 

STOBE 

SET ERE FLAG 

EESOB 8D PIC INT BUT IIP BIT NOT SET 

ABORT TEST 

COPY CUEEENT PSF 

CHECK FOE IIP BIT (14) RESET 

NOT SET, OK COtiTISUE 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 8E IIP BIT NOT EESET 

IN CURRENT PSW 
ABORT TEST 

LOAD SEC AND DEST LENGTH 
COPY DEST LENGTH FOR HVTUCHK USE 
LOAD DEST ADR 
LOAD SBC ADR 
CHECK RESULT OF INSTRUCTION 

LOAD PRECISION CLOCK ADR 

LOAD PIC CKD EISAEM/STRRT 

LOAD PIC CRD ENABLE 

LOAD PIC C»D DISARM 

ZERO REG 9 

CLFAR IIP FLAG 

SET R=1 US, IC=32 US 

LOAD INT PSW 

LOAD TEST INSTRUCTION ADR 

STORE TEST INSTRUCTION ADR 

LOAD DEST LENGTH 

LOAD SRC LENGTH 

SET PIC RESOLUTION AND COUNT 

SENSE STATUS 

CHECK FOB OVERFLOW 

DISARH PIC AND START CLOCK 

ENABLE PROC INTS 

ENABLE PIC INTS 

ADE IN Ell FOB LOC COHPARE UfON INj 



* INTER3UPTIBLE INSTE EXECUTION - P&V 



^rRfE"3"lYTETSrATErUN;ACKrDDECIOL STRING FRO.^^^^^^ 
DESTINATION CONTAINS PACKED DECIMAL STRING AS SOURCE FOR LPS N.XT 



TESTS. 6 PKV E2,PKDEST,E3,0PN1 



* PACK AND HOVE 



c^Lsasso 

C''L38840 
cnL38850 
CBL3S860 
C"iL38870 
CLSSSSO 
C''L38890 
C'<L38900 
C1L38910 
C''L38920 
C'!L33930 
C''L38940 
C«L38950 
C«L38960 
CHL33970 
C;!L38980 
C'?L38990 

ciLsgooo 

CNL39010 

C''L39020 

CML39030 

C!?L39040 

CML39050 

C«!L39060 

CKL39070 

C'1L39080 

CKL39090 

C«;L39100 

C?'L39110 

C"L39120 

CLSgiBO 

C'<L39140 

Ci'L39150 

CJ'L39160 

C''L39170 

CML39180 

C>'L39190 

CWL39200 

C'»L39210 

C>:L39220 

CHL39230 

C''L39240 

C''L39250 

C'<L39260 

CML39270 

CML39280 

CWL39290 

Ci'L39300 

crLsgsio 

C"?L39320 
C'»L39330 
C''L39340 
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T5S' 


r 8 - IIP 












002CA2 


9EAC 


3935 






OCB 


S10,E12 


002CRlt 


4890 2DF0 


3936 


CHKSET16 


LH 


a9,IIPFLAG 


002CA8 


11230 2CC0 


3937 






BNZ 


CHKSET17 


002CAC 


C840 3846 


3938 






LHI 


E4,C'BF' 


002CBO 


4040 17A2 


3939 






STH 


E4,ER3N0 


002CBI* 


4040 17SS 


3S40 






STH 


E4,S0EEE 


002C38 


41E0 3EBC 


3941 






BAL 


RET,LINTHG 


002CBC 


4300 2Dft8 


3942 
3943 


* 




B 


ENDUP 


002CCO 


4220 2CD8 


3944 


CHKSET17 


BP 


CHKSET18 


002CClt 


C840 3930 


3945 






LHI 


E4,C"90' 


002CC8 


4040 17A2 


3946 






STH 


E4,EEEN0 


002CCC 


4040 175A 


3947 






STH 


E4,N0EEE 


002CD0 


41E0 3^12 


3948 






3AL 


EET,IIPSETN3 


002CD4 


4300 2DA8 


3949 
3950 


* 




3 


ENDUP 


002CD8 


95EE 


3951 


CHKSET18 


EPS8 


R14,H14 


002CI)A 


F3E0 0002 0000 


3952 






TI 


R14,Y'00020000' 


002CE0 


4330 2CF8 


3953 






bz 


RESIIP6 


002CEI* 


C840 3931 


3954 






LHI 


E4,C'9r 


002CE8 


4040 17A2 


3955 






STH 


R4,EEEN0 


002CEC 


4040 175A 


3956 






STK 


B4,N0ESE 


002CF0 


41E0 3F1A 


3957 

3958 


* 




bal 


EET,IIPBESNG 


002CF4 


4300 2DA8 


3959 






b 


ENDUP 


002CF8 


E690 0260 


3960 


RE: 


3IIP5 


LA 


R9,BIGUN-U?!(SEC 


002CFC 


41F0 3AFA 


3961 
3962 


* 




BAI 


LINK,PKCHK 


002D00 


48A0 136E 


3963 


SETIST7 


LH 


E10,?ICADE+6 


002D04 


C800 OOEO 


3964 






LHI 


EO.X'EO' 


002D08 


C870 0040 


3965 






LHI 


87,X'40" 


002DOC 


C8C0 OOCO 


3966 






LHI 


812,X'C0' 


002D10 


0799 


3967 






XE 


E9,R9 


002D12 


4090 2DF0 


3968 






STH 


B9,IIPFLAG 


002D16 


C890 1020 


3969 






LHI 


E9.X'1020' 


002D1A 


C8D0 70F0 


3970 






LHI 


S13,X*70F0' 


002D1E 


C8B0 2D4A 


3971 






LHI 


R11,TEST8.7 


002D22 


■SOBO 957E =0042A4 


3972 






ST 


R11,INSTADE 


002D26 


Fa20 0000 0000 


3973 






LI 


E2,0 


002D2C 


F830 0000 0000 


3974 






LI 


H3,0 


002D32 


5850 3020 


3975 






L 


R5,LPB.02A 


002D36 


5860 3024 


3976 
3977 


* 




L 


B6,LPB.02B 


002D3A 


93A9 


3978 


SE 


;tpic7 


WHS 


S10,E9 


002D3C 


9DA8 


3979 






SSE 


E10,R8 


002D3E 


4280 2T)3A 


3980 






btc 


8,SETPIC7 


002D1+2 


9EA0 


3031 






OCR 


RIO, SO 


002C44 


95ED 


3982 






EFSF 


R14,R13 


002D46 


9KA7 


3983 






OCR 


E10,R7 


002Dii8 


030B 


3984 
3985 
3986 


* 
* 




BE 


R11 






3987 


* 


ihtereuptib: 


IE XNSTH EXECUTIC 



DISAEK PIC 

LOAD IIP FLAG 

IF IIP FLAG ZERO, E^ROS 

LOAD EKHOE NO 

STORE 

SET EER FLAG 

EEEOE BF IIP FLAG = SO PIC INT 

ABORT TEST 

IF IIP FLAG NEGATIVE, ERROR 

LOAD ERROR KG 

STORK 

SET ERR FLAG 

ERROR 90 PIC INT BUT IIP BIT \0T SEI 

ABORT TEST 

COPY CDRREKT PSW 

CHECK FOE IIP BIT (14) RESET 

NOT SET, OK CONTINUE 

LOAD ERROR NO 

STOEE 

SET EER FLAG 

EEEOE 91 IIP BIT NOT RESET 

IS CURRENT PSW 
ABORT TEST 

LOAD OFFSET TO LARGEST UNPACKED 
CHECK RESULT OF INSTRUCTION 

LOAD PRECISION CLOCK ADS 

LOAD Pic CHD DISAES/START 

LOAD PIC CKD ENABLE 

LOAD PIC CKD DISARM 

ZERO REG 9 

CLEAR IIP FLAG 

SET E=1 US, IC=32 US 

LOAD INT PSM 

LOAD TEST INSTRUCTION ADR 

STORE TEST INSTRUCTION ADR 

CLEAR DEST REG 

CLEAR 2SD DSST REG 

LOAD RESULT IN REGS 



SET PIC RESOLUTION AND COUNT 

SENSE STATUS 

CHECK FOE OVEBFLO'J 

DISAEK PIC AND START CLOCK 

ENABLE PROC IN'I'S 

ENABLE PIC INTS 

ADH IH R11 FOR LOC COMPARE UPON INI 



:N - LPB 



C!»L39360 

C!^L39370 

C*L3938C 

C«L39390 

C''L39400 

C!'L39410 

C'^L39420 

C»fL39430 

C«L3944C 

C''L3945C 

C''L39460 

CWL39470 

C!?L3948C 

CHL39490 

CJ^L39500 

C''L39510 

CfL39520 

C"*L39530 

C'!L39540 

C«!L39550 

C!fL39560 

C''L39570 

C>'L39580 

CLsgsgo 

CHL39600 

cLsgftio 

CfL39620 
CHL39fi30 

CLsgeuc 

C^L39650 
C''L39660 
CHL39670 

CLigesn 

CWL39690 
C^L3970C 
C!'L3971C 
C'«L39720 
C1L39730 
CfL3974C 
C''L3=175C 
CML3976C 
C''L39770 
€"139780 
CML39790 
C'«L3930C 
C''L3981C 
CPL3932^ 
C*'L3983C 
CfL3984C 
CML3985C 
CKL3986G 
C*!L39S70 
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IIP 



002D4f. 6?20 399ft 



002DUE 
002D50 
002D54 
002D58 
002D5C 
002Ii60 
002D64 
002D68 

002D6C 
002D70 
002D74 
C02D78 
002D7C 
002D80 

002084 
002D86 
002D8C 
002D90 
002D94 
002D98 
002D9C 

002DAO 

002DA4 

002DA8 
002DRC 
002DB0 
002DB6 



9SAC 

4890 2DF0 
4230 2D6C 
C840 3932 
4040 17A2 
4040 175A 
41E0 3EBC 
4300 2DA8 

4220 2D84 

C840 3933 

4040 17A2 

4040 175A 

41E0 3F12 

4300 2DA8 

95EE 

''3E0 0002 0000 
4330 2DA4 
C840 3934 
4040 17A2 
4040 175A 
41E0 3F1A 

4300 2DA8 
41E0 39CA 

48A0 186E 

C3B0 1572 

403A 4AO0 OODO 

4300 OEEA 



0000 2DBA 

002DBA 5000 2DS8 

002DBE 5010 2DEC 

002DC2 F300 0002 0000 

002DC8 4230 2DD8 

002DCC 051B 

002DCE 4230 2DE2 



OO20P2 

002DD4 



2591 

4090 2DF0 



3986 


* SOURCE 


IS 16 


BlTi. i'ALM.Li usv-itiJiJ 


3989 


* DESTIHATION : 


IS BEG 2,?.EG 3 64 


3990 


* 






3991 


* 






3992 


TEST8*7 


LPE 


82,PKDEST 


3S93 


* 






3994 


* COSVEET 16 BYTE DECIMAL STRING : 


3995 


* 






3996 




ocs 


RIO, 512 


3997 


CHKSET19 


LH 


R9,IIPFLAG 


3998 




BNZ 


CHKSET20 


3999 




LHX 


S4,C*92" 


4000 




STH 


E4,ERRS0 


4001 




STH 


R4,N0ERR 


4002 




BAi 


RET,LINTSG 


4003 




g 


ENDUP 


4004 


* 






4005 


CHKSET20 


BP 


CHKSET21 


4006 




LHI 


E4,C'93' 


4007 




STH 


H4,ERBN0 


4008 




STH 


S4,N0EER 


4009 




BAL 


RET,IIPSETNG 


4010 




B 


ENDUP 


4011 


* 






4012 


CHKSET21 


EPSR 


R 1 4 , R 1 4 


4013 




TI 


R14,Y'000200OO' 


4014 




BZ 


RESIIP7 


4015 




. LKI 


R4,C'94* 


4016 




STH 


R4,E3EH0 


4017 




STH 


F4,S0ESR 


401B 




BAL 


BET,IIPEESNG 


4019 


* 






4C20 




B 


ENDUP 


4021 


RESIIP7 


BAL 


LISKrLPBCHK 


4022 


* 






4023 


ENDUP 


LH 


R10,PICADR+6 


4024 




LHI 


R11,XI32 


4025 




STH 


R11,X'D0' (510, RIO 


4026 




B 


TSTEND 


4027 


* 






4023 


• 






4029 


lIPINx 


EQTI 


* 


4030 




ST 


EO,IIPPSH 


4031 




ST 


S1,IIPL0C 


4032 


it 






4033 




TI 


EO,Y'0002000C* 


4034 




BNZ 


IIPOK 


4035 




CL5 


R1,R11 


4036 




BSE 


COSIIP 


4037 


* 






4038 




LCS 


E9,1 


4039 




STH 


F9,IIPFLAG 


4040 


* 







?ING FROK PKV PREVIOUS 
64 BIT BINARY NUMBER 



TO 64 BIT NUMBER , LOAD IN REG 2,SEG 3 



DISARM PIC 

LOAD IIP FLAG 

IF IIP FLAG ZERO, 

LOAD EEROS NO 

STORE 

SET ERE FLAG 

ERROR 92 IIP FLAG 

ABORT TEST 



SREOS 



NO PIC INT 



IF IIP FLAG NEGATIVE, ERROR 

LOAD ERROR NO 

STORE 

SET EEE FLAG 

EREOS 93 PIC INT BUT IIP BIT NOT SE"^ 

ABORT TEST 

COPY CURRENT PSW 

CHECK FOR IIP BIT (14) RESET 

NOT SET, OK CONTINUE 

LOAD EEEOE NO 

STORE 

SET ERE FLAG 

ERROR 94 IIP BIT NOT RESET 

IN CURRENT PSH 
ABORT TEST 
CHECK RESULT OF INSTRUCTION 

LOAD FEECISION CLOCK ADS 
LOAD INT HANDLER ADE 
BESTOEE HANDLER ADR TO TABLE 
EXIT TEST (ABORT) 



STORE INT PSW 
STORE INT LOC 

CHECK IF IIP BIT SET 
IIP BIT SET, OK CONTINUE 
COMPARE INSTE ADR TO INT LOC 
IIP BIT NOT SET, LOC NOT SAME, 

LOAD PSH AND GO 
LORD F'S TO EEC 
SET IIP FLAG NEGATIVE 



CLsgsso 

CML39S90 

C!'I39900 

CML39910 

CML3°920 

^139930 

CML39940 

C''L39q50 

CML39960 

CML39970 

CML39980 

CML39990 

CML40000 

C^L40010 

CML40020 

CML40030 

CML40040 

CWL40050 

CML40060 

CML40070 

CML40080 

CML40090 

CML40100 

CML40110 

CML40120 

CKL40130 

CWL40140 

CML40150 

^140160 

C''L40170 

C1L40180 

CML40190 

CfL40200 

CXL40210 

C''L40220 

CML40230 

C''L40240 

CyL40250 

C«L40260 

C'<L402'70 

C''L40280 

CWL40290 

C?'L40^00 

CWL4031C 

CML40320 

CKL40330 

CML40340 

CML40350 

CML40360 

CML40370 

CML40380 

CML40390 

C1L40400 



SEBIKS 3200 C0KSS8CIA1 INSTBOCTIOK SET TEST 06-238 KOO 
TSST 8 - II? 



002DD8 it890 2DF0 

002DDC 2591 

002DDE 4090 2Tm! 

002DE2 C200 2DE8 



002DE8 0000 0000 
002DEC 0000 0000 



002DFO 



0000 



i*om 


IIPQK 


LH 


R9. IIPFLAG 


iiOH2 




SIS 


E9,1 


40il3 




STH 


R9, IIPFLAG 


liOtU 


CQSIIP 


LPSS 


IXPPSW 


4045 


* 






4046 


* 






4047 


IlPPSif 


DCY 





4048 


IIPLOC 


DCY 





4049 


* 






4050 


IIPFLAG 


DCX 





4051 


* 






4052 


* 






4053 


* 






4054 


* 
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LOAO IIP FLAG 

ISCBEHEST (SET) IIP FLAG POSITIVE 

STORE BACK 

RESTORE PSW AT TIHE OF INT 



INT PSW SAVE AREA 
INT LOC SAVE AREA 

IIP FLAG 

IF - NO PIC INTS DURISG INSTE EXEC 

IF + - PIC INT £ IIP BIT SET OK 

IF - - PIC INT £ IIP BIT NOT SET 



C?L40410 
CMI40420 
CWL40430 
C«L40440 
C''I40450 
C^L40460 
CML40470 
CHL40480 
C?fL4C490 
CML40500 
C«L40510 
C'«L40":20 
CW140530 
C''L40540 
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OPBSAND TABLES ASD COKSTASTS 



002DF8 



CMLtOSfiO 

4056 * C''Ilt0570 

1*057 ALIGN e CfL«0580 

U0^9 * NOTE THAT THESE OPERAND TABLES MUST BE LOCATED BELOW "^V^lUll 

llfo * ADDRESS X'UOOO. TO ENSURE EX1 ASSEKBLED_INSTBUCTIONS. C^I^OSOO 

4061 * " " ~ CWLU0620 

4062 * c^moeso 

4064 * CONVSESION CONSTANTS FOR LPB AND STBP IHSTSUCTIOKS c^LUolsO 

4065 * C''L40660 
002DF8 0000 0000 'o67 LPB.01 DC Y • 00000000 • ,Y- 00000000 ■ ,Y' 00000000 • ,Y. OOOOOOOC 0^140670 

002DFC 0000 0000 

002E00 0000 0000 

'°'^°' 0000 2DF8 4063 SRES.01 EQU LPB,01 IPB SRC EQUIVALENT STBP RESULT C.^LU0680 

002E08 0000 0000 ^070 ;PB.02 DC Y ■ 00000000 • ,Y. 00009223 ■ ,Y ■ 37203685 ■ ^Y" 4775S07C. CML40700 

002EOC 0000 9223 

°°'^'" EiiFs 4071 SRES.02 EQU LPE.02 LPB SRC EQUIVALENT STBP RESULT C.L40710 

002E18 0000 0000 4073 LPB.03 DC Y' OOOOOOOO^ .Y^ 00009223 • ,Y- 37203685 • ,Y- 4775807D ' C«L40730 

002E1C 0000 9223 

002E20 3720 3685 

'°'''' 0000 2E18 4074 SRES.03 EQU LPB.03 LPB SRC EQUIVALENT STBP RESULT CHL40740 

002E28 0000 0000 4076 LPB.04 DC Y • 00000000 ■ ,Y- 00010000 • ,Y- 00000000 • ,Y- OOOOOOOC ' CML40760 

002'-2C 0001 0000 

ilE °or0 0000 4077 LPB.05 DC Y - OOOOOOCO' ,Y- 00000000 ■ ,Y- 00000000 ' ,Y- 00000000 ■ C«L40770 

002E3C 0000 0000 

002E40 0000 0000 

002E44 0000 0000 ^ INVALID SIGN DIGIT CVL40780 

002E48 0000 0000 4079 LPB.06 DC Y ' 00000000 ■ .Y" 00000000 • ,Y ' 00000000 ■ ,Y-000000FC ' C''L40790 

002E4C 0000 0000 
002E50 0000 0000 

002E54 0000 OOFC ^ INVALID DATA DIGIT C»fL4080n 

"voU C!f^m0310 

4081 * C'«L40S20 

4082 * CHL40830 
4084 LP3.07 DC Y ' 00000000 ' ,Y ■ 00000429 ' ,Y ' 49672960 • ,Y ' OOOOOOOC ■ CML40840 



002E58 0000 0000 
002E5C 0000 0429 
002F60 4967 2960 
002E64 0000 OOOC C^LUOSSO 

Zl * BIN 05F5 E100 0000 0000 C;;L40860 

4037 * 



SERIES 3200 COSHEECIAL ISSTRUCTIOH S 



SET TEST 05-238 BOO SAG?. 65 09:37:08 06/08/81 



OPERAND TABLES AND CONSTANTS 



002!i68 
002E6C 
002E70 
002E7« 



002E78 
002E7C 
0C2E60 
002E8lt 



002E88 
002E8C 
002E90 
002E94 



002E98 
002E9C 
O02EA0 
002EA4 



002EA8 
002EAC 
002E80 
002EBU 



002EBa 
002EBC 
002EC0 
002EC!* 



002EC8 
002ECC 
Q02ED0 
002ED1* 



0000 2E58 

0000 0000 

0000 0429 

1*957 2959 

9999 999C 



0000 0000 
0000 01429 
1*967 2960 
0000 001C 



0000 0000 
0000 0211* 
7483 6480 
0000 OOOC 



0000 0000 
0000 0214 
7483 6479 
9999 999C 



0000 0000 
0000 0214 
7483 6480 
0000 001C 



0000 0000 
0000 0000 
0000 0010 
0000 OOOC 



0000 OOOC 
0000 0000 

0000 oooy 

9999 999C 



4088 
4089 
4090 



4091 
4092 
4093 
4094 



4095 
4096 
4097 
4098 
4099 



4100 
4101 
4102 
4103 



4104 
4105 
4106 
4107 



U108 
4109 
4110 
4111 
4112 



4113 
4114 
4115 
4116 



4117 
4116 
4115 



SBES.07 EQO LFP.07 IPB SEC = STEP EES01? 

DC Y -00000000 M- 00000429 '.Y- 49672959 •,y'9999999C ■ 

* BIN 05FE EOFF FFF? FFFF 

DC Y • 00000000 'rY- 00000429 •,Y' 4967 2960 ■,Y'CQ000C1C' 

* 

* BIN 05F5 E100 0000 0001 

* 

DC Y • 00000000 •,¥■ 0000021 4 •,Y' 743 36480 ■,Y'OO0O0OOC' 

* 

* BIN 02FA F080 0000.0000 

DC Y*00000000',Y"00000214'.Y'74836479',Y'9999999C' 

BIN 02FA F07F FFFF FFFF 
DC Y • 00000000 •,!• 0000021 4 SY '748 36480 •,Y'0000001C' 

BIH 02FA F080 0000 0001 
DC Y'00000000',Y'00000000',y00000010' ,Y'0000000C* 

BIS OOOC 0000 05F5 "100 
DC Y -00000000 ',Y' 00000000 ',Y' 00000009 •,Y'°999999C ■ 

BIS 0000 0000 05F5 EOF? 



C«L40880 
C''L40890 
^140900 



C1L40910 
0-^140920 
C'!140930 
CM140940 



^"140950 
CML40960 
^•140970 
CnL40980 
0^140990 



0^141000 
C?'L41010 
CKLU'1020 
C"L41030 



CWL41040 
CfL41050 
C1L41060 
C'!L41070 



C''L41080 
C'«14109C 
C?1L41100 
C«L41110 
^141120 



C«L41130 
C?fl41140 
^141150 
C'*L41160 



CML41170 
C*I:L411S0 
C''L41190 



SERIES 3200 COHHEBi 

OPFSAXD TABLFS SKD 

002EDS 0000 0000 

CC2EDC 0000 OCOO 

002EE0 0000 0010 

002EE4 0000 001C 



:iAL INSTF.GCTIOS SET TEST 06-238 ROO PAGE 89 09:37:08 06/08/81 
COSSTAKTS 
4120 



DC Y • 00000000 ',Y' 00000000 '.Y' 00000010- ,Y'0000001C' 



002EE8 
002EEC 
002EF0 
C02EF4 



002EF8 
002EFC 
002F00 
002F0U 



002F08 
002FCC 
002F10 
002F1i* 



002F1S 
002riC 
002F20 
002F2t 



002F2S 
002F2C 
002F30 
002F31* 



002F38 
002F3C 
002F40 
OOZFliU 



0000 0000 
0000 0000 
0000 0005 

0000 oooc 



0000 0000 
0000 0000 

0000 ooou 

9999 999C 



0000 0000 
0000 0000 
0000 0005 
0000 001C 



0000 0000 
0000 0081 
9855 2921 
6486 896C 



0000 2F18 

0000 0000 
0000 1229 
7829 3824 
7303 4U1C 



0000 0000 
0000 2459 
5658 7649 
4606 882C 



4121 * 

4122 * 

4123 * 

4124 * 
4125 



4126 * 

4127 * 

4128 * 
4129 



4130 * 

4131 * 

4132 * 
4133 



BIN 0000 0000 05F5 E101 
DC Y • 00000000 •,Y' 00000000- ,Y- 00000005* ,Y-O000000C- 

BIN 0000 0000 02FA F080 
DC Y -00000000 -,¥• 00000000 -,Y- 00000004 -,Y-9999999C- 

BIN 0000 0000 02FA F07F 
DC ■ Y-00000000-,Y-00000000-,Y-00000005-,Y-0000001C- 



4134 * 

4135 * 

4136 * 

4137 * 

4138 iPB-19 DC 



BIS 0000 0000 02FA F0S1 



Y -00000000 -,Y- 00000081 -.Y- 98552921 -,Y-648689=C - 



4139 * 

4140 * 

4141 * 

4142 SRE3.19 EQU LPB.19 

l]ll * DC V.00000000-,Y-00001229',Y'78293824',Y-7303441C- 



BIN 0123 4567 89AB CDE? 
LPB SKC = STEP RESULT 



4145 * 

4146 * 

4147 * 
4148 



4149 * 

4150 * 

4151 * 



BIN 1111 1111 111"! '•''■''' 
DC Y -OOCOOOOO-.Y- 00002459 -,¥- 56587649 •,Y'4606392C' 

BIN 2222 2222 2222 2222 



CML41200 



C'?I41210 
CWL41220 
CML41230 
C'?L41240 
CNL41250 



CHL41260 
CW141270 
C'!L41280 
Cl*141290 



C1141300 
^141310 
CKL41320 
C!'141330 



CKL41340 
CXL41350 
^141360 
C?fL41370 
C15141380 



C!5L41390 
C'«141400 
C«L41410 
CF141420 
C''L41430 
C»«L41440 



C»fL41450 
C1141460 
C'<L41470 
CW141480 



C''L4149C 
CFL41500 
CKL41510 



SSaiES 3200 COHMEFCIAL INSTHUCTIOH SET 
OPERAND TABLES ARD CONSTAKTS 



002F148 
002fl»C 
002F50 
002F5£» 



002F58 
002F5C 
002F60 
002F64 



002F68 
002F6C 
002F70 
002F7t 



002F78 
002F7C 
0Q2F80 
002F84 



002F88 
002F8C 
002F90 
002F9U 



002F98 
002F9C 
002FA0 
002FA4 



002rA8 
002FAC 
002FB0 
002F3i) 



002FB8 



0000 0000 
0000 3689 
3U88 MiTH 
1910 323C 



0000 0000 

0000 4919 

1317 5298 

9213 764C 



0000 0000 

0000 6148 

9145 9123 

6517 205C 



0000 0000 

0000 7378 

6976 2948 

3820 646C 



0000 0000 
0000 8608 
4805 6773 
1124 087C 



0000 0000 
0000 8608 
4805 6773 
1124 088D 



0000 2F98 

0000 0000 

0000 7378 

6976 2948 

3820 647D 



0000 0000 



4152 



4153 
4154 
4155 
4156 



4157 
4158 
4159 
4160 



4161 
4162 
4163 
4164 



4165 
4166 
4167 
4168 



4169 
4170 
4171 
4172 
4173 



4180 
4181 
4182 
4183 



TEST 06-238 BOO PAGE 90 09:37:03 06/08/81 

DC Y* 00000000", y 00003689" ,T" 34381474" ,Y' 1910323C" 

* 

* BIN 3333 3333 3333 3333 

■k 

DC Y* 00000000' , Y' 0000491 9 ',Y' 13175298* rY'9213764C* 

* BIN 4444 4444 4444 4444 

DC Y ' 00000000 •,Y' 00006 148' ,Y' 91469123' ,Y'6517205C' 

* 

* PIN 5555 5555 5555 5555 

DC Y ' 00000000 ',Y' 00007373 ',Y' 69762948' ,Y'3a2064'SC' 

* EIN 6666 6666 6666 6666 

DC Y • 00000000 ',Y' 0000? 608" ,Y' 48056773' /Y' 1124037C' 

* BIN 7777 7777 7777 7777 

* 

LP3.27 DC Y"00000000",T"00008608",Y"48056773",Y"1124088D' 



BIN 8888 8888 8888 8888 
EQ'J LPB.27 LPB SBC = STEP RESULT 

DC Y' 00000000" ,Y" 00007 37 8" ,Y"69762948" ,Y"3S20647D" 

BIN 9999 9999 9999 9999 
DC Y" 00000000" , Y" 00006 148 ",Y' 91469 123" ,Y'5517206D' 



4174 


*' 


4175 


* 


4176 


* 


4177 


SEES. 27 


4173 


* 


4179 





011.41520 



C"L41530 
C''L41'^40 
C!!L41550 
CfL41560 



C«IL41570 
CWL41580 
0*^141590 
C«141600 



CM141610 
C'!L41620 
^141630 
0^141640 



CrL41550 
C«L41660 
C»'14167Q 
C''L41630 



C^L41690 
C'?L41"'0O 
CWI41710 
CML41720 
Cyi41730 



^•141740 
CM141750 
CTfL41760 
Ci'L41770 
^141780 
C!?L41790 



C'«L41>>00 
CML41810 
CWL41820 
CnLai830 



SSRISS 3200 COMHEBCIAL IKSTEUCTION SET TEST 06-238 SOO 
OPEHAMD TABLES ASD CONSTANTS 



PAGE 91 09:37:0? 06/OS/81 



002?3C 


0000 


6148 


002FC0 


9145 


9123 


002FC4 


6^M 


206D 



002FC8 
002FCC 
002FD0 
002FD4 



002FD8 
002FDC 
002FEO 
002FE4 



002FS8 
002FEC 
002FFO 
002FF4 



002FFS 
002FFC 
003000 
003004 



003008 
00300C 
003010 
00301U 



003C20 
003024 



0000 0000 
0000 4919 
1317 5298 
9213 765D 



0000 0000 
0000 3689 
3488 1474 
1910 324D 



0000 0000 
0000 2459 
5558 7649 
4606 S33D 



0000 0000 
0000 1229 
7829 3824 
7303 442D 



0000 0000 
0000 0000 
0000 0000 
OOOO 001D 



003018 0000 0000 

003C1C 0000 0000 

0000 3018 

0000 301C 



7FFF FFFF 
FFFF FFFF 
0000 3020 
0000 3024 



4184 
4185 

4186 
4187 



4186 
4189 
4190 
4191 



4192 
4193 
4194 
4195 



4196 
4197 
4198 
4199 



4200 
4201 
4202 
4203 



BIS AAAA AAAA AAAA AAAA 
DC Y ■ 00000000 '.Y- 0000491 9 '.Y' 131 75298 •,Y' 921 3765D' 

BIN BBBE BBB3 BEBB BBBB 
DC Y '00000000 ^Y* 00003689', Y- 3488 1474', Y* 191 0324D' 

BIN CCCC CCCC CCCC CCCC 
DC Y' 00000000' ,Y' 00002459 ',Y' 56587649' ,Y' 450 688 3D' 

BIN DDDD DDDD DDDD DDDD 
DC Y '00000000 ',Y' 00001 229', Y' 78293824 •,Y'7303442D ' 

BIN EEEE EEEF EESE EEEE 
DC Y " 00000000 ',Y' 00000000 ',Y' 00000000' ,Y'0000001D' 

■BIN FFFF FFFF FFFF FFFF 



STEP SRC REG EQUIV LPB RESULT RFG 



003028 8000 0000 



4204 


* 






4205 


* 






4206 


* 






4207 


* 






4208 


STBP.01A 


DC 


Y'OOOOOOOO' 


4209 


STBP.01B 


DC 


Y'OOOOOOOO' 


4210 


LPB.01A 


EQU 


STPP.01A 


4211 


LPB.01B 


EQU 


STBP.01B 


4212 


* 






4213 


STBP.02A 


DC 


Y'7FFFFFFF' 


4214 


STBP.023 


DC 


Y'FFFFFFFF' 


4215 


LPB.02A 


EQU 


STEP.02A 


4216 


LPB.02B 


EQU 


STEP.02B 


4217 


* 






4218 


STBP.03A 


DC 


Y'80000000' 



Bl!PSESENTS 

LARGEST POSITIVE NUMBER 



REPRESENTS 



C'^L41S40 
CLttieSO 
C'?L41860 
C''L41870 



C*'L41880 
CML41890 
C'rL41900 
C''L41910 



C''L41920 
CML41930 
CHL41940 
C'!L41950 



C'«L41960 
C'fL41970 
CWL41980 
C''L41990 



CML42000 
^142010 
^142020 
C'^L42030 



C1L42040 
C^L42050 
C"L42060 
C"*L42070 
CfI42080 
C''L42090 
^142100 
C*!L42110 
C«L42120 
CML42130 
CWL42140 
CfL42150 
CML42160 
C»;L42170 
CHL42180 



SERIES 3200 COHMEECISl IKSTHUCTION SST TEST 05-238 BOC 



PAGE 



;9:37:C 



oe/os/si 



OPtCSAND TABLES AND CONSTANTS 



00302C 



003030 
00303U 



003038 
003O3C 



00301*0 
003041* 



003058 
00305C 



003060 
003051) 



0000 0001 
0000 3028 
0000 302C 
0000 3018 
0000 301C 
0000 3016 
0000 301C 
0000 3018 
0000 301C 



05F5 E100 
0000 0000 



0000 3030 
0000 3034 

05F5 EOFF 
FFFF FFFF 



05F5 E100 
0000 0001 



003048 02FA F080 
00304C 0000 0000 



003050 02FA F07F 
003054 FFFF FFFF 



02FA "080 
0000 0001 



0000 0000 
05F5 ='100 



00306S 0000 0000 
00306C 05F5 SOFF 



4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4 266 

4267 

4268 

4269 

4270 

4271 



STBP.03B 

LP3.03A 

IPB.03B 

LPB.04A 

tPB.04B 

LPB.05A 

LPB.05B 

LPB.05A 

LPB.06B 



ST3P.07A 
STSP.07B 



LPB.07A 
LPS. 073 



DC 

SQU 

EQU 

EQU 

EQO 

EQU 

EQU 

EQU 

SQU 



DC 
DC 



yooQOoooi" 

STBP.03A 
STEP.03B 
STEP.01A 
STBP.01B 

STEP. on 

STBP.01B 
STBP.01A 
STEP. GIB 



Y'05F5E100* 
Y'OOCOOOOO' 



LARGEST NEGATIVE NOKBEB 



DEC 0000 OOOO 0000 



EQU 
EQU 

DC 
DC 



STBP.07A 
STBP-073 

Y'05F5E0FF' 
Y'FFFFFFFF' 



0429 4967 2960 0000 OOOC 

STEP SBC = LPB RESULT 



DEC 0000 0000 0000 0429 4967 2959 9999 999C 



DC 

DC 



Y'05F5E100' 
Y "OOOOOOOT 



DEC 0000 0000 0000 0429 4967 2960 0000 OOK 



DC 
DC 



02FAF080' 
00000000" 



DEC 0000 0000 0000 0214 7483 6480 0000 OOOC 



DC 
DC 



Y'02FAF07F' 
V • FFFFFFFF' 



DEC 0000 0000 0000 0214 7483 6479 9999 999C 



DC 

DC 



Y"02fAF080' 
Y'OOOOOOOl' 



DEC 0000 0000 0000 0214 74S3 6480 0000 001C 



DC 

DC 



Y'OOOOOOOO' 
Y'05F5E100* 



DEC 0000 0000 0000 0000 0000 0010 0000 OOOC 



DC 
DC 



Y'OOOOOOOO' 
Y'05F5E0FF* 



DEC 0000 0000 0000 0000 0000 0009 9999 999C 



^1.42190 
C?142200 
CML42210 
C!'L42220 
C'*L42230 
C5L42240 
C^L42250 
CSL42260 
CML42270 
CfL42280 
C''L42290 
CHL42300 
CML42310 
C«'L42320 
C''L423?0 
C*L42340 
CWL42350 
C1L42360 
CML4237C 
C'»L42380 
C''L42390 
^142400 
C"L42410 
C*L42420 
C^L42430 
Ci»142U40 
CML42450 
^142460 
^•1.42470 
C'!L42480 
C''L42490 
^142500 
C''L42510 
CWL42520 
C''L42530 
C»L42540 
C«L43550 
C?'L42560 
CML42570 
C!?L42580 
C»L42590 
C'»142600 
C'<L42610 
C''I47';20 
C*'L42530 
C»iL4264C 
^142650 
C"«L426fiO 
C«L42670 
^•142680 
C"?L42690 
CXL42700 
C?1142710 



;E8ISS 3200 C0K3EHCIAL IKSTRUCTIOH S; 
OPSaRHD TABLES ASC CONSTANTS 



PAGE 93 03:37:0% 06/03/81 



303:73 0000 OOOO 
003:74 05F5 E101 



003073 
00307C 



003060 
005G8t 



003088 
Q0308C 



003090 
00309« 



0000 0000 
02FA F080 



0000 0000 
02FA F07F 



0000 0000 
02FR F081 



0123 4567 
89AB CDEF 



0000 3090 
0000 3091 



003098 
00309C 



0030A0 
0030A4 



0030A8 
Q030AC 



0030BO 
0030B4 



0030B8 
0030BC 



1111 
1111 



1111 
1111 



2222 2222 
2222 2222 



3333 3333 
3333 3333 



nnnn nnna 
nnnn nunn 



5555 5555 
5555 5555 



1+272 ' 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4230 

4281 

4232 

4283 

4284 

4285 

4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 

4294 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 



DC 
DC 



y ■ 00000000' 

Y'05F5E101' 



DEC 0000 0000 0000 0000 0000 0010 0000 001C 



DC 
DC 

DEC 

DC 
DC 

DEC 

DC 
DC 

DEC 



Y'OOOOOOOO' 
Y'02FAF080' 

0000 0000 0000 0000 0000 0005 0000 OOOC 



y -00000000" 
y02FAF07F' 



STEP 

STEP 



LP3 
LPB 



,19A 
19B 



0000 0000 0000 0000 0000 0004 9999 999C 

T'OOOOOOOO' 
y02FAF081' 

0000 0000 0000 0000 0000 0005 0000 001C 



,19A DC 

. igB DC 



y01234567' 

T'89ABCDEF' 



DEC 0000 0000 0000 0081 9855 2921 6486 895C 

STBP.19A STEP SRC = LPB RESULT 



EOD 

DC 

DC 



STBP.193 

Y" 11111111" 
y 11111111 ' 



DEC 0000 0000 0000 1229 7829 3824 7303 441C 



DC 
DC 



y 22222222' 
y 22222222' 



DEC 0000 0000 0000 2459 5653 7649 4606 882C 



DC 
DC 



y 33333333" 
y33333333' 



DEC 0000 0000 0000 3689 34f,8 1474 1910 323C 

DC Y'44444444" 

DC y44444444" 

DEC 0000 0000 0000 4919 1317 5298 9213 764C 

DC Y"55555555' 

DC y"55555555" 



C>!L42720 

C«L42730 

C''L42740 

C'^L4?750 

CML42760 

CKL42770 

C''L42730 

C''L42790 

C''L42S00 

C?"L42810 

C»'L42820 

C«L42830 

C'<L42840 

C"L42850 

CyL42960 

C'';L42870 

C?'L42880 

CML42890 

C''L42900 

Cl'L42910 

C'«L42920 

C»'L42930 

CWL42940 

CrL42950 

C''L42960 

C'«L42970 

C''L42980 

C1L42990 

C?»L43000 

C'"L43010 

C'»L43020 

CXL43030 

CML43040 

CLUSOSO 

CML43060 

CVL43070 

CML43080 

CML43090 

C>"L43100 

C'«L43110 

C"«L43120 

C'«L43130 

CHL43140 

C??L43150 

C'!L43160 

CrL43170 

C«L43180 

C"'L43190 

CWL43200 

C''L43210 

C'«L43220 

CWL03230 

C''L43240 



SERIES 3200 C0*5EECIAL ISST3UCTIGS SET TEST 06-238 HOO PAGE 91i 09!37?08 06/OS/81 



OPSRSND TABLES AND CONSTANTS 



0030CO 
0Q30C4 



0030C8 
0030CC 



0030DO 
0030D1« 



003CD8 
0030DC 



0030E0 
0030E4 



0030E8 
0030EC 



0030F0 
0030F4 



0030F8 
0030FC 



003100 
003104 



003108 

ao3ioc 



6666 6656 
6666 6666 



7777 7777 
7777 7777 



8888 3888 
8888 8888 



0000 30D0 
0000 30D4 



9939 9999 
9999 9999 



AAAA AAAA 
AAA A AAAA 



B3BB BBBE 
33RB BBBB 



CCCC CCCC 
CCCC CCCC 



DDDD DDDD 
DODD DDDD 



KEEE ESEE 



rrfp FFFF 



rFF 



4325 

l»326 

4327 

li328 

14329 

14330 

4331 

«332 

1*333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 

435S 

4357 

4358 

4359 

4360 

4361 

4362 

4363 

4364 

4365 

4366 

4357 

4363 

4 35.9 

4 370 

4371 

43^2 

4373 

4374 

4375 

4377 



DEC 0000 0000 0000 6148 9146 9123 5517 205C 



DC 
DC 



STBP.27J 
STBP.27E 



LP3.27A 
LPB.27B 



Y'66666666" 
Y"66666666' 



DEC 0000 0000 0000 7378 6976 2948 3820 646C 

DC Y'77777777' 
DC Y'77777777' 

DEC 0000 0000 0000 8608 4805 6773 1124 087C 



DC Y'888888e8' 
DC Y*88888868' 

DEC 0000 0000 0000 8608 4805 6773 1124 086D 



LPB SBC = STEP RESULT 



EQU STBP.27A 

EQU STBP.27B 

DC ¥'99999999' 

DC y99999999' 



DEC 0000 0000 0000 7378 6976 2948 3820 647D 

DC Y'AAAAAAAA' 
DC Y'AAAAAAAA* 

DEC 0000 0000 0000 6148 9146 9123 6517 206D 

DC Y'BBBBBBSB' 
DC Y'BBBBBBBB' 

DEC 0000 0000 0000 4919 1317 5298 9213 765D 

DC Y'CCCCCCCC 

DC Y'CCCCCCCC 

DEC 0000 0000 0000 3689 3483 1474 1910 3240 

DC Y'DDDDDDDD' 
DC Y'DDDDDDDD' 

DEC 0000 0000 0000 245? 5658 7649 4606 3S3D 

DC Y ■ ESEEEEEE ' 
DC Y'EEFEEEFE' 

DEC 0000 0000 0000 1229 7829 3824 7303 442C 

DC Y'FFFFFFFF' 

DC T'FFFFFFFF' 



CWL43250 

C'?L43250 

C«143270 

CrL43280 

C''L43290 

C1L43300 

CWL43310 

Cfl43320 

CM143330 

C'*L43340 

^143350 

C5L43360 

CXL4337 

C!<143380 

^143390 

CWL43400 

CML43410 

C''L43420 

CKL43430 

CMi43440 

C>!L43450 

CHL43460 

C'^L43470 

C''L43480 

CWL43490 

CWL43500 

CSL43510 

CWL43520 

CWL43530 

CnL43540 

C'?L435"^0 

C'«L43550 

CML43570 

C}'L43580 

C'»L43590 

^143600 

CyL43610 

^143620 

CPL43630 

CWL43640 

CML43550 

CWL43650 

C'«L43670 

CHL43680 

CML43690 

CWL43700 

Clf!L43710 

CML43720 

C'»L43730 

0*^143740 

CHL43750 

C1SL43760 

CWL43770 



003110 



3„,,, 3200 COMMERCIAL IKSTB'JCTION SE: TS3T 06-233 EOO PAGE 9^ 09:37:06 06/03/81 

Oi^EHAK'H TABLES AND CONSTANTS 

CMLU3730 

4379 I DSC 0000 0000 0000 0000 0000 0000 0000 001D c-LttSBOO 

4380 * ^^3810 

4381 * C»'m3820 

4382 * CKmSBSO 

4383 * _ _ C''L43840 

4384 * " "" C'«L43850 

4385 * C«L43860 

4386 * CPL43S70 
0000 3110 4387 UPK3RC EQU * C''L43880 

"^® * -- Y-30303030',Y"30303030-,y303C3030',Y-30303030' CfL43890 



3030 3030 4389 DC 

003114 3030 3030 

Q03118 3030 3030 

003120 3030 'Sfo 4390 DC Y • 30303030 ■ ,y 30303030. ,Y- 30303030 • ,X. 3030^ CML43900 

003124 3030 3030 

003128 3030 3030 

llllll nil .391 DB X.CO.,0 SIGN. VALUE ALL ZEROES C.L43910 

003,30 31313131 4393 UPKSRC.PDC Y ■ 31 3131 31 • ,Y • 31 313131 ' ,Y. 3131313 V ,Y. 31313131' C.L43930 

003134 3131 3131 

O0313C 3131 3131 ^^^^ ^^ ,. 3,313131 ■ ,Y ' 31313131 ■ ,Y ■ 3131313 V ,X- 3131 • C.LU3940 

003144 3131 3131 

003146 3131 3131 

lllZ IVol .395 OB X.CV,0 SICK. VALUE ALL OHES C-L43950 

003,S0 3232 3232 ^397 ^ DC Y • 32323232" .Y' 32323232" ,Y. 32323232 « ,Y. 32323232 ■ C.L43970 

003154 3232 3232 

003158 3232 3232 

003lfo 3232 32^2 4398 DC Y • 32323232 • ,Y- 32323232' ,Y • 32323232 ' ,X- 3232' CVL43980 

003164 3232 3232 

003168 3232 3232 

lllZ ^ 4399 DB X.C2.,0 SIC.. VALUE ALL TWOS C»L43990 

003170 3333 3333 4:0i* DC Y • 33333333 ■ ,y 33333333 ' ,Y ■ 33333333 ■ ^Y' 33333333 • C-L44010 

003174 3333 3333 

003178 3333 3333 

00317C 3333 3333 _ „.,„ .:.,^, . y. ,,,5,^:,^ ..Y ■ ^3333333 ' ,X' 3333 ' C!'L44020 



3333 3333 4402 DC 



Y • 33333333 •,Y' 33333333 '.y 33333333 ',X' 3333' 



003180 

003184 3333 3333 

003188 3333 3333 

mill mi ..03 DB X.C3.,0 SIC.. VAL.E ALL THREES C.L44030 

003190 3434 3434 HH ^ DC Y • 34343434' ,Y • 34343434' ,Y- 34343434 ■ ,r. 34343434 • C.'L44050 

003194 3434 3434 



SEaiES 3200 GOI?SEECIAL ISSTRUCTIOH SET TEST 06-23B BOO PJGE 96 09!37:0a 06/06/81 

• OPSRASiD TABLES AND CCNSTRSTS 

003198 31*34 343U 

00319C 11131* 3I*3« 

0Q31A0 3U34 3431* 4406 DC Y ' 34343434 ■ ,Y' 34343434 ' ,Y ■ 34343434 ' ,X' 3434 * C''144060 

0031A4 3434 3434 

0031A8 3434 3434 

003UC 3434 

0031AE C400 4407 DB y'C4',0 SIGN + VALUE ALL FO'JHS CWL44070 

4408 * C'!L440S0 

0031B0 3535 3535 4409 DC Y ' 35353535 ' ,Y' 35353535 ' ,Y " 35353535 ' ,y 35353535 ■ C>'L44090 

0031B4 3535 3535 

0031B8 3535 3535 

0031BC 3535 3535 

0031C0 3535 3535 4410 DC Y ' 35353535 " ,Y* 35353535 ' ,Y ■ 35353535 ' ,X' 3535 * C>'L44100 

0031C4 3535 3535 

0031C8 3535 3535 

0031CC 3535 

0031CE C500 4411 DB X'C5',0 SIGN + VALUE ALL FIVES C1L44110 

11412 * C''L44120 

0031D0 3636 3636 4413 DC Y ' 36363636 ' ,Y' 36363636 ' ,Y' 36363636 ' ,Y' 36363636 ' C''L44130 

0031D4 3536 3636 

0031D8 3636 3536 

0031DC 3636 3636 

0031E0 3536 3636 4414 DC Y ' 36363636 ' ,Y' 36363636 " ,Y' 36363636 ■ ,X' 3536 ' C»'L44140 

0031E4 3636 3536 

0031E8 3635 3636 

0031EC 3536 

0031EE C600 4415 DB X"C6',0 SIGN + VALUE ALL SIXES CWL4415Q 

4416 * C"'L44160 

0031F0 3737 3737 4417 DC Y " 37373737' ,Y' 37373737 ' ,Y' 37373737 ' ,Y' 37373737 * r*L4417n 

0031F4 3737 3737 

Q031F8 3737 3737 

0031FC 3737 3737 

003200 3737 3737 4418 DC Y ' 37373737' ,Y' 37373737" ,Y' 37373737 • ,X • 3737 ' C''L4U180 

003204 3737 3737 

003208 3737 3737 

00320C 3737 

00320E C700 4419 DB X'C7',0 SIGN + VALUE ALL SEVENS CWL44190 

4420 * C'?L44200 

003210 3838 3838 4421 DC I '38383838 ' ,Y ' 38383838 ' ,Y ' 38383838 " ,Y' 383S3338 ' CfL4421C 

003214 3838 3838 

003218 3338 3838 

00321C 3838 3838 

003220 3B33 3838 4422 DC Y ' 38383838 ' ,Y* 3S383838 ' ,Y" 38383838 ' ,X ■ 3338 ' CKL44220 

003224 3338 3838 

003228 3338 3838 

00322C 3638 

00322E CSOO 4423 DB X'CS',0 SI>5N + VALUE ALL EIGHTS C''L44230 

4424 * C''L44240 

003230 3939 3939 4425 DC Y ' 39393939 ' ,Y" 39393939 ' ,Y' 39393939 ' ,Y ' 39393939 ' €"144250 

003234 3939 3939 

003238 3939 3939 

00323C 3939 3939 

003240 3939 3939 4426 DC Y '39393939 ', Y' 39393939 ', Y "39393939 • ,X ' 3939 ■ CFL44750 



3EHIES 3200 COMEHCIAL INSTHUCTION S.T TEST 06-238 HOO .AGE 97 09:B7:0B 05/08/B1 
OPSSAN'D TABLES AND CCMSTANTS 

003241^ 3339 3939 

0032^8 3939 3939 

=»2.c 3«9 _^^^^,^ ^ ^, ,,„.,„ si„ . ,.ME ,n .RES j'.^;;|; 

,03.sa 3,„ 3,3, Hi L.C.. .C ,.3,3,3,3,-,r3,3,3,3,-,r3,3,3,3,..V3,3.3,3,. ^JJiS 

003254 3131 3131 

003258 3131 3131 r«TUli^in 

C0325C 31313131 ^^^^ ^^ ,. 3131 31 31 ' .Y' 31 3131 31 • ,y 31313131' ,X ■ 31 31 ■ C.IUU310 

003264 3131 3131 

303268 3131 3131 

mill l]ll ua32 DB X-D1',0 SIGN- VMHE ALL ONES Cvi;;"^|2. 

003270 3232 3232 4^3^ DC ,• 32323232- ^X" 32323232 • ,r 32323232 • ,V 32323232' ™340 

003274 3232 3232 

003278 3232 3232 

S032I0 3232 3232 4435 DC Y ■ 32323232' ,Y- 32323232 ' ,y 32323232 • ,X ' 3232' C^I^'^^SO 

003284 3232 3232 

003288 3232 3232 t , ^^n 

00328C 3232 ,. „ sigs - VALUE ALL TWOS C«L44360 

00328E D200 tt35 "^ ^ ^- '° CHL44370 

003.,. 3333 3333 "« ' - ,- 33333333. , r 33333333. .V 33333333. ..■ 33333333 ■ ™3,. 

003294 3333 3333 
003298 3333 3333 
0032AO 3333 3333 4439 DC y 33333333 ' ,Y' 33333333' ,Y' 33333333' ,X' 3333' "L44390 

0032A4 3333 3333 
0032A8 3333 3333 

0032AC 3333 . q jjGN - VALUE ALL THREES '^*'^''??°° 

0032AE D300 '»"'*0 I^B X D3 ,0 -^'=" C''La4410 

'*'*'*^ * V. 34343434', Y'34343434',Y'34343434',Y'34343434- C''L44420 



0032BO 3434 3434 
0032B4 3434 3434 
0032B8 3434 3434 



4442 DC 



0032C0 3434343: 4443 DC V 34343434' ,Y' 34343434 ' .Y' 34343434 ' ,X' 3434 • C.L44430 

0032C4 3434 3434 

0032C8 3434 3434 

0032CC 3434 ytm. ''I.^S - VALUF ALL FOURS C'»I4444C 

0032CE D400 '*t'*'^ ^^ ^ ^'* '° C-'L44450 

0032DO 3535 3535 

0032D4 3535 3535 

0032D8 3535 3535 

0032EO 313^3535 4447 DC Y' 35353535' .Y' 35353535' ,r' 35353535' ,X ' 3535' C.L44470 

0032E4 3535 3535 

0032E8 3535 3535 



mi * DC y.35353535',Y'35353535',Y'35353535-,Y'35353535' C.L44460 



SERIES 3200 COMMERCIAL INST8UCTI0N SET "ESI 06-238 SCO PAGE S8 09:37!0B U5/ua/BT 
OPERAND TABLES AND CONSTANTS 

HHHS DB X'D5',0 SIGH - VALUE ALL FIVES CT!L44U80 



0032EC 


3535 




0032EE 


D500 




0032F0 


3535 


3636 


0032FU 


3536 


3536 


0032F8 


3636 


3636 


0032FC 


3636 


3636 


003300 


3635 


3536 


003304 


3535 


3536 


003308 


3635 


3636 


00330C 


3636 




0Q330E 


D600 




003310 


3737 


3737 


003314 


3737 


3737 


003318 


3737 


3737 


00331C 


3737 


3737 


003320 


3737 


3737 


003321* 


3737 


3737 


003328 


3737 


3737 


00332C 


3737 




003323 


D700 




003330 


3338 


3838 


003331J 


3838 


3838 


003338 


3838 


3838 


00333C 


3838 


3338 


003340 


3838 


3838 


003344 


3833 


3938 


003348 


3833 


3838 


00334C 


3838 




00334E 


D800 




003350 


3939 


3939 


003354 


3939 


3939 


003358 


3939 


3939 


00335C 


3939 


3939 


003360 


3939 


3939 


003364 


3939 


3939 


003368 


3939 


3939 


00336C 


3939 




00336E 


0900 




003370 


3030 


3030 


003374 


3030 


3030 


003378 


30 30 


3030 


00337C 


3932 


3333 


003380 


3337 


3230 


003384 


3336 


3835 


003388 


3437 


3735 


00338C 


3830 




00338E 


C700 





4449 * 

4450 DC 



4451 DC 



Y • 35363636 ', y 36363636 •,y 36363636 '.y 36363636' C-'I44';00 

Y • 36363636 •,Y' 36363636 'jY' 36363636 ',X' 3636- C^L44510 



4452 DB X'D6-,0 SIGN - VALUE ALL SIXES lHHlTo 

4454 DC Y'37373737',Y'37373737',Y'37373737',Y'37373737- C''L44540 

4455 DC Y'37373737',Y'37373737',Y'37373737',X-3737' C«!L44550 

4456 ^ DB X-D7',0 SIGN- VALUE ALL SEVENS lllTuTyl 
nil DC Y'38383838',Y'38383838',Y'38383838',Y'?8383838' C"L445fl0 



4459 DC 



Y • 38383838 •, Y- 38383838 •,Y' 38383838 •,X- 3838- CHL44590 



4460 ^ DB X'D8',0 SIGH- VALUE ALL EIGHTS c«L44610 

4462 * DC Y"39393939',Y-39393939',Y'39393939',Y'39393939' C''L44620 



4463 DC 



Y* 393 93939" ,Y* 39393939 ' ,Y' 39393939 " ,'<*3939' C1L446 30 



4464 DB X'D9',0 SIGN - VALUE ALL NINES ™^lTsl 

4465 * C*rL44660 
4467 BIGl'N DC v • 30303030 • ,Y' 30303030' ,Y" 30303030 ' ,Y ' 39323233 ' C>'L44670 



4468 DC 



Y • 33373230 '.Y' 33363835 •,Y' 34373735' ,v>3S30' Ci«L44680 

4459 DE X'C7',0 LAEGEST (7FFF FFFF FFFF FFFF) C«L44fi90 



:GV-2?CIfiL ISSTRUCTIOS SET 



V 99 09:37j08 06/06/81 



St?:I^3 3200 

OPF-SJiSD TABLES f.ND COKSTASTS 



003390 
0C3394 



3A3B 3C3I 

3E3F 



003396 0313 23i»3 
00339A 5363 7383 
00339a 3300 



0033A0 
0033AH 
0033A8 
0033AC 



0000 33A0 

0000 0000 
0000 0000 
0000 0000 

0000 oooc 



0033B0 1111 1111 

0033Blt 1111 1111 

0033B8 1111 1111 

0033BC 1111 111C 



0033CO 
0033CU 
0033C8 
0033CC 



OOSSPO 
0033DU 
0033D8 
0033DC 



0033E0 
0033E1* 
0033E8 
0033EC 



0033F0 
0033F4 
0033F8 
0033FC 



2222 2222 
2222 2222 
2222 2222 
2222 222C 



3333 3333 
3333 3333 
3333 3333 
3333 333C 



H444 4444 
H444 4444 
4444 444C 



5555 5555 
5555 5555 
5555 5555 
5555 555C 



4470 * 

4471 * 

4472 UPKDAT 

4473 * 

4474 * 

4475 UPKSGN 



4476 
4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 



TEST 06-238 SCO PAG 



IN UNPACKED DECIMAL FCF» 

Y'3P,3E3C3D',X'3E3F" 

INVALID DATA 
Y -03132343 •,?• 53637383 ^X- 9300- 

INVALID SIG»I 



DC 



DC 



PKSEC 



EQU * 
DC Y 



4485 * 
4465 * 
4487 PKSSC. 



4488 
4489 
4490 



P DC 



4491 
4492 
4493 



4494 
4495 
4496 



4497 
4498 
4499 



4500 
4501 



.00000000',Y'00000000',Y'00000000-,Y'OOCOOOOC' 



SIGN + VALUE ALL ZEBOES 

y. 11111111 -rY' 11111111 •,Y-11111111", Y-1111111C' 



SIGN + VALUE ALL ONES 
DC V22222222-,Y'22222222-,Y'22222222',Y'2222222C- 

SIGN + VALUE AIL TWOS 
DC y. 33333333-, Y'33333333',Y-33333333-,Y-3333333C- 

SIGN + VALUE ALL THREES 
DC Y.„,,4,444-,Y'44444444',Y'44444444',Y'4444444C' 

SIGN + VALUE ALL FOURS 
DC y. 55555555-, Y'55555555-,Y-55555555-,Y-5555555C- 

SIGN + VALUE AIL FIVES 



pv? ^11700 
C><I4ii710 
CyiU4720 

C«L44730 
C«T 44740 

cwia4''50 



CWL44760 
C«I44770 
CVL44780 
C*L44790 
C»'L44800 
C''I44310 
CyL44820 
CHI44830 
CfL44840 



^144850 
CKL44860 
C''I44870 



C*L44880 
€-'144890 
CFL44900 



C!'144910 
C?!L44920 
C-'L44930 



CrL44940 
C*L44950 
CWI44960 



CKT,44970 
0*144980 
CXL44990 



CXL45000 
C»'L45010 



SESIES 320C COMMERCIAL IhSTRUCTICS SET TEST 05-238 EOO PAGE 100 09:37:08 06/08/61 
OPERAND TABLES AND CONSTANTS 

OOBHOO 6666 6666 4502 DC Y' 65666666 ' ,T' 66666666 ' ,Y' 66656566 ' ,Y" 66565f6C ' C»'m5020 

OOSliOt 5666 6666 
003408 6656 6666 
00340C 5566 666C 

4503 * SIGN + VALUE ALL SIXES CLUSOSO 

4504 * C'<L45040 
003410 7777 7777 4505 DC Y ' 77777777 ' ,Y' 77777777' ,Y" 77777777 ' ,Y' 7777777C" C''L450'iC 
003414 7777 7777 

003418 7777 7777 
00341C 7777 777C 

4506 * SIGN + VALUE ALL SEVENS C''L4'=050 

4507 * C'?L45070 
003420 8888 8888 4508 DC Y ' 88883888 ' ,Y ' 88886888 ', Y ' 88888888 ' ,Y ' 8888888C ' C''L45080 
003424 3888 888S 

003428 8883 8888 
00342C 8388 88bC 

4509 * SIGN + VALUE AIL EIGHTS C'«L4509n 

4510 * CML4'^100 
003430 9399 9S99 4511 DC Y " 99999999 ", Y ' 99999999 ' ,Y ' 99999999 ' ,Y ' 9999999C' CML4'=110 
003434 9993 9999 

003438 9999 9999 
00343C 9999 999C 

4512 * SIGN + VALUE ALL NINES C''L4'=120 

4513 * ^145130 
003440 1111 1111 4514 PKS5C.N DC Y • 1 1 1 1 1 1 1 1 ■ , Y ' 1 1 1 1 1 1 1 1 ' , Y ' 1 1 1 1 1 11 1 • , Y ' 1 1 1 1 1 1 1D ' CKL45140 
003444 1111 1111 

003448 1111 1111 
00344C 1111 111D 

4515 * SIGN - VALUE ALL ONES CTL4515r~. 

4516 * C'«L45160 
003450 2222 2222 4517 DC Y ' 22222222' ,Y ' 22222222 ■ ,Y • 22222222 ' ,Y ' 2222222D ' C^L4';i70 
003454 2272 2222 

003458 2222 2222 
00345C 2222 222D 

4518 * SIGH - VALUE ALL TWO? CLUSISO 

4519 * C''L45190 
00346C 3333 3333 4520 DC Y • 33333333 • ,Y " 33333333 ' ,Y ' 33333333 ' ,Y • 3^1333330 ■ Ci'L45200 
003464 3333 3333 

003468 3333 3333 
00346C 3333 333D 

4521 * SIGN - VALUE ALL TKSEES C»'L45210 

4522 * ^145220 
003470 4444 4444 4523 DC Y ' 44444444 ', Y ' 44444444 ', Y ' 441 44444 ', Y ' 4444444D ' C^L4523C 
003474 4444 4444 

003478 4444 4444 
00347C 4U44 4440 

4524 « SIGN - VALUE ALL FCUPS C«L4524C 

4525 * C«'L4525C 
003480 5555 5:55 4526 DC i • 55555555' ,Y ' 55555555 ', Y ' 55555555 ' ,1 ' 5555555D * C^L4526" 
0C34BU 5555 5555 

003488 5555 5555 
0C3U8C 5555 5550 

4527 * SIGN - VALUE AIL ^^IVFS C»L4527: 



S"'I5S 3200 CO»!!E?:i?-L IRSTSUCTION SET TEST 05-238 300 FAGF 101 09:37:08 06/CS/81 



003UE0 



0034F4 



4533 * SIGK - VALUE ALL SEVENS 

4534 



4536 * SIGN - VALUE ALL EIGHTS 

4537 



4539 * SIGN - VALUE ALL NINES 

4540 



0034D0 A3B3 C3D3 
0034D4 ?3^3 



0034VC ODOO 4553 

4554 * 
0034FE 4558 5045 43F4 4=UU 4555 LPBEXP DC C'EXFECTKD 
003506 2020 
003508 

003510 2020 4557 

003512 
00351A ODOO 4559 

4550 
00351C 



4562 
4563 



rvT fic 



4528 * 
£655 5666 4529 DC Y ' 66666666 ', Y' 66666666 * ,Y ■ 66656566 * ,Y' 5565556D ' CML4 = 



i ^ '. 



00349C 

003494 6555 6665 

003498 6666 6665 

00349C 5656 666D ,,.Ti!,r utt cty-c -vt4=1'-1'' 

4R5G * SIGN - VALUE ALL SIXtS ^ ■"" 

C''L4'=310 

0034A0 7777 7777 4532 * DC y ■ 77777777 ' ,Y- 77777777' ,Y- 77777777 • ,Y ' 77777770" C-L4=:32: 

0034A4 7777 7777 
0034A8 7777 7777 

0034AC 7777 777D _^ ^ ^^^^ _ ^^^^^^ ^^^ ^^^^^^ CVL4533C 

CML4'=:34C 



0O34B0 3388 8838 4535 DC Y ' 88838388 ' ,Y ' 88888888 ' ,Y ' 88888888 ' ,Y ' 88888S8D ' C''L4^350 

0034B4 3388 8888 
0034B8 8388 8888 

0034BC 3888 888D r->n,,c^i:r, 

„c^£ ♦ c:Tr:>i - vaT.nE ST.T. ETGMTS C''L453':Q 



C"'L4=^37C 



0034C0 9999 9999 '♦538 DC Y • 99999999 * ,Y' 99999999 ' ,Y' 99999999' ,Y' 9999999D' C<'L45380 

0034C4 9999 9999 
0034C8 9999 9999 

0034CC 9999 999D „ rvT im^^-^ 

„cT>r. * CT-K - VST.TIE ALT NINES C''L45;9. 



C*!L45iiO 



^r 



"541 PKDAT DC Y ' A333C3D3 ' ,X ' E3F3' CML4=410 

4542 



INVALID DATA C'»L4542C 

-•'^-•■^ C''L4'^43C 

003UD6 3031 3234 4544 PKSGN DC Y • 303 1 3234 ', Y ' 35363733 ', X ' 3900 ' CYL454U0 

0034DA 3536 3733 

°°^''^^ "'° 4545 * INVALID SIGN 0-145450 

* C«L4545C 

*************************************************************** CKL454''0 



U545 
4547 
4548 
4143 5455 414C 2020 4549 LPBACT DC C'ACTUAL ' C''L45!i90 



.C^L45"30 



0034E8 2020 rvi u^^f^r 

0034SA 4550 ASCLP31 DS 6 ?vt4==10 

0034F2 2020 4551 DC X-2020- SPACE ^,^^.12 



4552 ASCLPB? DS S cfa^^tc 

DC X'ODOO- C'(L4..53C 

CyL45540 



4556 EXPLPB1 DS 3 tktu^^^- 

4557 DC X'2020' SPACE C«L4'^5,u 

4558 EXPLPE2 DS 8 ^l^^l-Z'', 
DC X'ODOO" L .m-.- ^M 

C?«L4E50C 
4561 SDSST DS 16 DSSTISATICH STRING FOR STBP Cl«145510 



cmsezo 

CWL4553C 



SERIES 3200 COHHEECIAL IKSTSCCTTOM 3ST 
OPSaRND TABLES AHD CONSTASTS 



TEST 06-238 SCO PAGE 102 09:37:08 06/08/81 



00352C 


4143 


5455 414C 


2020 


00353U 


2020 






003536 








003556 


ODOO 






003558 


4558 


5045 4354 


4544 


003560 


2020 






003562 








003582 


ODOO 






003584 








003684 










0000 


3734 




003784 


FFFS 


FDFC 




003788 


F3FA 


F9F8 




00378C 


F7F6 


F5F4 




003790 


F3F2 


FIFO 




003794 


EF'lE 


EDEC 




003798 


EBEA 


E9E8 




00379C 


E7E6 


B5E4 




0037A0 


S3E2 


E1E0 




0037S4 


DFDE 


DDDC 




0037A8 


DBDA 


D9D8 




0037AC 


D7D6 


D5D4 




0O37B0 


D3D2 


DIDO 




0037B4 


CFCE 


COCC 




0037B8 


CBCA 


C9C8 




0037BC 


C7C6 


C5C4 




0O37C0 


C3C2 


C1C0 




0037C4 


3FBE 


BDBC 




0037C8 


B3BA 


B938 




0037CC 


S7B6 


E5B4 




0037D0 


B3B2 


B1S0 




0037D4 


AFAE 


ADAC 




0037D8 


A3AA 


A9A8 




0037DC 


.17 A6 


A5A4 




0037E0 


A3A2 


A1A0 




0037E4 


9F9E 


9D9C 




0037Sa 


9B9A 


9993 




0C37EC 


9795 


9594 




0037F0 


9392 


9190 




0037F4 


SF8E 


8D8C 




0037FS 


3?8A 


8988 




0037FC 


8735 


8534 




00 3600 


33S2 


8180 




003804 


7F7E 


7D7C 




003803 


7B7A 


7973 




003&0C 


7776 


7574 




003810 


7372 


7170 




003S14 


6F6E 


6D6C 





4564 

4565 
4566 
4567 
4568 

4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
457S 



4579 



4580 



4581 



4582 



4583 



4584 



4585 



"S-'e 



4587 



SIBPACT 
ASCItJD2 

STBPEXP 
ASCIWD1 



0PM2 
0PN1 



KASTEB 



DC 

DP 
DC 

DC 

DS 
DC 

DS 
OS 



C ACTUAL • 

32 
X'ODOO" 

C EXPECTED • 

32 

X'ODOO" 

256 
256 



256 BYTE SOUBCE AHEA 

256 BYTE DESTINATION A'^EA 



EQU * MASTE? BYTE TABLE 

DC Y'FFFEFDFC , Y" FBFAF9F8 • , Y " F7F6F5T'4 • ,Y''3F2E1F0' 

DC Y'FFEEEDEC ,Y'EBEAF9E8' ,Y'E7E6E5E4' ,Y'E3S2E150' 
DC Y"DFDEDDDC',Y'DBDAD9D8* ,Y'D7D6D5D4' ,Y'D3D2D1D0' 
DC Y'CFCECDCC ,Y'CBCAC9C3' ,Y'C7C6C5C4' ,Y'C3C2C1C0' 
DC Y'BFBEBDBC , Y'BBBAB9B8 ■ , Y ' 37B635E4 ' ,Y'B3B231B0' 
DC Y'AFAEADAC',Y'ABAAi9A8",Y'A7A6A5A4',Y'A3A2A1A0' 
DC Y'9F9E9D9C',Y'9E9A9 99 8' ,Y' 97969594 •,Y'939 29 190' 
DC Y' 8F3E8a8C' , Y'SBSA 8988', Y" 3786 85 84', Y" 3 38 28 ISO- 
DC Y'7F7E7D7C',Y'7B7A797 8* ,Y'77767574' ,Y' 73727 170' 
DC Y • eF6E6D6C ", Y •6B6A6963',Y' 67566564 •,T*63626 16-0' 



C>'L45650 
r'«L45f60 
CMLi(S6''0 
C''L45680 



C>'L4 
CWL4 
C''L4 
C''L4 
C«L4 
CLa 
C''L4 
C»L4 
CWL4 
C''L4 



5690 
5700 
S^IO 
5T20 
5''3Q 
5'740 
5-750 
5760 
5770 
=^730 



C"»L45790 



C>'L45B00 



CML45810 



C'"L45°20 



CfL45S30 



C.fmSHHO 



CLU^ocQ 



C''L45P60 



f 14597'? 



S£SIHS 3200 COMUKPCI.A.L IVSTBUCTICN SET TEST 06-238 BOO ?AGE 103 09:37;08- 06/08/-S1 

.^■r:r;)AN^ '^s^XjSS and CC?"ST?. KTS 

003=15 eSSA 6968 
003S1C 5766 6564 



003820 ?i362 6160 

003821 

003828 5B5A 5958 

0C352C 5756 5554 

003S30 5352 5150 



5P5£ 535C ii588 DC Y ' 5F5E5D5C ' ,Y' 5B5A5958 ', y 57565554 ' ,Y ' 53525 150 • CML45880 



4F4E 4D4C 4589 DC Y ■ 4F4E4D4C ■ ,Y • 4B4A4948 ' ,Y' 47464544 • ,Y ■ 434241 40 ' CH145890 



003834 

00383S 4B4A 4948 

00383C 4746 4544 

003B40 4342 4140 

003844 

003848 3B3A 3938 

00384C 3736 3534 

003850 3332 3130 

003854 

003858 2B2A 2928 

00385C 2726 2524 

003860 2322 2120 

003864 

003868 1B1A 1918 

00386C 1716 1514 

003874 OFOE ODOC 4593 DC Y ' OFOiODOC ' ,Y' 0B0A0908 ' ,Y' 07060504 • ,Y' 03020 100 ' C"L45930 

003878 OBOA 0908 
003S7C 0706 0504 

003830 0302 0100 ^145940 

^145950 
► TPANStATION TABLE FOR 1VTU CKL4596C 

C'!L45970 
0001 0203 4598 DC Y ' 000 1 0203 ' ,1 ' 04050607 ' ,Y ■ 08090AOE ", Y ' OCODOEOF ' C''L45980 



3F3E 3D3C 4590 DC ¥' 3F3E3D3C' ,Y- 3B3A3938' ,Y' 37363534 • ,Y • 333231 30' CMI.45900 

3B3A 3938 
3736 3534 

2F2E 2D2C 4591 DC Y • 2F2E2D2C • ,Y' 2B2A2928 • ,Y • 27262524 ' ,Y' 23222120 ■ ^145910 

2B2A 2928 

2726 2524 

2322 2120 

IflE 101C 4592 DC Y ' 1F1E1 D1C ' , Y' IE 1A191 8 • , Y' 1716 1514' , Y* 1 3121 1 10' CMI45920 



0000 3884 



003884 

003888 0405 0607 

00388C 0809 OAOB 

003890 OCOD OEOF 



003H94 

003898 1415 1617 

00389C 1819 1A1B 

0038A0 1C1D 1E1F 



003eCO 3C3D 3E3F 
0038C4 



0038C8 4445 4647 
0038CC 4349 4i4B 
0038D0 4C4D 4E4F 



003804 

0038D8 5455 5657 



4594 


* 


4595 


* 


4596 


TRAHSTAB EQU 


4597 


* 


4598 


DC 



1011 1213 4599 DC Y " 10 1 1 1 2 1 3 ' , Y * 1 4 1 51 61 7 ' , Y' 1 8 1 9 1 A IP * , Y' 1C ID IE IF ' CML45990 



0038A4 2021 2223 4-500 DC Y ■ 202 12223 ' ,Y ' 24252e27' ,Y " 2B292A2E ■ ,Y ■ 2C2D2E2F ' C^L46000 

0033Ae 2425 2627 

0038AC 2329 2A2E 

0038B0 2C2D 2E2F „„,,,„,, 

003864 3031 3233 4601 DC Y ' 3031 3233 ', Y" 34353637 ', Y« 38393A33 ' ,Y' 3C3D3E3F' C'?L46010 

0038B8 3435 3637 

0038BC 3839 3A3E 



4041 4243 4602 DC v ' 40414243* ,y' 44454647 ' ,Y' 4e494A4B ' ,Y ' 4C4D4F4F' CfL4602C 



50515253 4603 DC Y ' 50515253 ' ,Y' 54555657" ,Y' 58595A5B' ,Y' 5C5D5E5F* C'*14fi030 



SEBI5:s 3200 COMMERCIAL IKS7EUCTI0N SET TEST 06-238 BOO PAGE 104 09:37:08 06/08/31 
OPEBAND TIBLES AHD CONSTANTS 



0038DC 


5859 


5A5B 


003eE0 


5C5D 


5E5F 


0038E4 


5061 


6263 


0038E8 


64S5 


6667 


0038EC 


6869 


6A6B 


0033F0 


5C6D 


6E6F 


0038FU 


7071 


7273 


0038F8 


7475 


7677 


0038FC 


7379 


7A7B 


003900 


7C7D 


7E7F 


003904 


8031 


3283 


003908 


9485 


S687 


00390C 


8889 


&A8B 


003910 


8C8D 


3E8F 


003914 


9091 


9293 


003918 


9495 


9697 


00391C 


9399 


9A9B 


003920 


9C9D 


9E9F 


003924 


A0A1 


A2A3 


003928 


A4A5 


A6A7 


00392C 


A&A9 


AAAB 


003S30 


ACAD 


AEAF 


003934 


B031 


B233 


003938 


BUBS 


36B7 


00393C 


B3B9 


BABB 


003S40 


3CBD 


BEBF 


003944 


C0C1 


C2C3 


003948 


C4C5 


C6C7 


00394C 


C3C9 


CACB 


003950 


CCCO 


CFCF 


003954 


D0D1 


D2D3 


003958 


D4D5 


D6D7 


00395C 


08D9 


DADB 


003960 


DCDD 


DEDF 


003964 


E0E1 


S2E3 


003968 


E4S5 


56E7 


00396C 


E3E9 


EASE 


003970 


ECED 


EEE'P 


003974 


F0F1 


F2F3 


003978 


F4F5 


F6F7 


00397C 


FeF9 


FAFB 


003980 


cCFD 


l-jpir 


003984 


0000 




003986 


3031 


3233 


00396E 


333 9 




003990 


3938 


3736 


003998 


3130 





4604 



4605 



4606 



4607 



460S 



4609 



4610 



4611 



4612 



4613 



DC ¥'50616 26 3',Y'64656667',Y'68696A6B' ,Y'5C6D6E6F' 



DC y 70717273- ,y' 74757677' ,Y*78797A7B' ,Y'7C7D7E7F' 



DC Y • 8081 8283 ',Y' 84858687' ,y ' 88898A8B ' , Y* 8C8D8E8F ' 



DC Y' 909 19293' ,Y' 94959697' ,Y'98999A9B' ,Y'9C9D9S9F' 



DC Y'A0A1A2A3',Y'A4A5A6A7',Y'A8A9AAAB',Y' ACADAEAF' 



DC Y'S0E1B2B3',Y'B4B5B6B7",Y'38B9BABB',Y'BCBDBSBF' 



DC Y'C0C1C2C3',Y'C4C5C6C7',ycSC9CACB',Y'CCCDCFCF' 



DC Y'D0D1D2D3',Y'D4D5D6D7' , Y'D8D9DADB' , Y ' DCDDDEDF* 



DC Y'S0E1E2S3',y*E4E5E6E7' ,Y'E8E9EAEB' ,Y'ECEDEEEF' 



DC Y'F0F1F2F3',Y"F4F5F6F7' ,Y'F3F9FAFB' ,Y'FCFDFEFF' 



FILL 



4614 


* 






4615 


* 






4615 


DCX 







4617 


* 






4618 


SU1310 DS 


c 


'01234567S9' 


4619 


SUaBIOHI DB 


c 


'9676543210' 


4620 


* 






4621 


* 






462? 


* 







CML46040 



c^iueoso 



^146060 



C"L4?070 



C«14«08C 



C''L46090 



C1L46100 



CLU^IIO 



CHL46T20 



C'^L4P130 



CML46140 
CfI46150 
C^L46160 
C''L46170 

^146190 

C'«L46200 
C'*L4fi2TC 

CVL4g220 



SSaiES 320Q COWKSSCIAI ISS'^RUCTIOS SET TEST 06-238 300 

OPS'^AaD TABLES AND CONSTANTS 

30^99A 4623 PKDEST DS 16 

i;62« * 

■339AA '»f'25 UPKDSST DS 32 

4626 * 

4627 * 



PAGE 1C5 09:37:08 06/03/81 

DESTINATION AREA PHV 
r-ESTINATION AREA UKV 



C!'m6230 
C}!146240 
CKL4'=;250 
C''L46260 
C'?L46270 



SERISS 3200 COSJISSCIAI INSTSUCTIOS SEX TEST 06-238 EOO 



PAGE 106 09:37:08 06/03/81 



SUBaOUTISES 



0039CA 
0039CE 
0039DO 
003904 
0039D6 
0039DA 
0039DE 
0039E2 
003SE6 
0039EA 
OOSgEE 



0039FO 
0039F2 
0039F4 
0039F8 
0039FC 
0039FE 
003A00 
003A04 
003A08 
003A0A 
003A0C 
003A10 
003Am 
003A16 
003A18 
003A1C 
003A20 
003A22 
003A26 
003A2A 
003A2E 
003A32 
003A36 
C03A3A 
0OJA3E 
003A42 



UOFO 88DA =0042A8 

0525 

4230 39DA 

0536 

4330 39EA 

CBAO 3138 

40AO 17A2 

40A0 175A 

41E0 39F0 

43F0 88BA =0042A8 

030F 



0000 39F0 
2408 



0312 
CB20 



34EA 



41F0 UFA 

2408 

0813 

C320 34F4 

41F0 UFA 

2408 

0815 

CS20 3508 

41F0 11FA 

2403 

0816 

C820 3512 

41F0 UFA 

2405 

5310 887E =0042A4 

C320 429B 

41F0 UFA 

C350 179A 

41F0 1222 

C850 4284 

41F0 1222 

C850 34FS 

41F0 1222 



4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4633 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4546 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4560 

4661 

4662 

4653 

4664 

4665 

4666 

4667 

4668 

4669 

4570 

4671 

4572 

4673 

4674 

4675 

4676 

4677 

4678 

4679 

4680 

4681 



********************************************************************* 

* * 

* LPBCHK * 

* * 

* THIS ROUTINE CHECKS THE HEFULT OF THE LPB INSTRUCTION BY A * 

* COMPARISON CF THE TVO DESTINATION REGISTERS AGAINST THF * 

* EXPECTED RESULT VALUES. LPBNG WILL PRINT THE EXPECTED RESOL'^S * 

* AND THE ACTUAL CONTENTS OF THE TWO DESTINATION REGISTERS * 

* IF A COSPARISON FAILS. * 

* * 
********************************************************************* 



LPBCHK STH 
CLR 
BNE 
CLE 
BE 

LCX1 LHI 
STH 
STK 
BAL 

LCK2 LH 
BR 



LPBSG 



EQU 

LIS 

LR 

LHI 

BAL 

LIS 

LE 

LHI 

BAL 

LIS 

LR 

LHI 

BAL 

LIS 

LR 

LHI 

BAL 

LIS 

T, 

LHI 

BAL 

LHI 

BAL 

LHI 

BAL 

LHI 

3AI 



LINK.LISKSAV 

R2,R? 

LCK1 

R3,S6 

LCK2 

510, CIS* 

H10,ESSN0 

EIO.NOESR 

RET,LPENG 

LINKfLINKSAV 

LINK 



R0,S 

R1,R2 

R2,ASCLFB1 

LINK,HEXASC 

R0,8 

H1,R3 

R2,ASCLPB2 

LINK,HEXASC 

R0,8 

R1,R5 

R2,EXPLPB1 

LINK,HEXASC 

RO,S 

R1,H6 

R2,EXPLP32 

LINK,HFXASC 

SO, 6 

R1 ,TN'STADE 

S2,ASCIADB 

LINK,HEXASC 

H5,EERMSG 

LINK, PRINT 

?.5,T>i"T;<3G 

LIKK,?3I>IT 

a5,LP3EXP 

LIN'K,??Ih"T 



SAVE UNKING ADDRESS 

CHECK EVEN REG AGAINST EXP RESULT 

IF OK CONTINUE 

CHECK ODD REG AGAINST EXP RESULT 

IF OK SKIP 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 18 RESULT LPB INST? INCOEFECr 

RESTORE LINK 

RETURN TO CALL 



LOAD NO OF DIG 

LOAD DIGITS TO 

LOAD DEST ADR 

CONVERT 

LOAD HO OF DIG 

LOAD DIGITS TO 

LOAD DEST ADR 

CONVERT 

LOAD NO OF DIG 

LOAD DIGITS TO 

LOAD DEST ADR 

CONVERT 

LOAD NO OF DIG 

LOAD DIGITS TO 

LOAD DEST ADE 

CONVERT 

LOAD NO OF DIG 

LOAD INSTEUCTI 

LOAD CONVERTED 

CONVERT 

LOAD ERROR 

PRINT ERROR NO 

LOAD INST MSG 

PRINT MSG 

LOAD EXP REG^ C 

PRINT EXPECTED 



ITS 

CONVERT 
(CONVERTED) 

I^S 

CONVERT 
(CONVERTED) 

ITS 

CONVERT 
(CONVERTED) 

ITS 

CONVERT 
(C^SVESTED) 

IT'S 
ON ADR 

DEST ADR 



ADR 

OSTENTS 

RESULT 



C^L46?90 
C''L46300 
C''L46310 
C'^L4';320 
C*IL46330 
CWL46340 
C''t46350 
CXL46360 
CWI46370 
C'«L46380 
C!fLU6390 
C'fL46400 
CWL46410 
CXL46420 
CP146430 
C??L46440 
CML464SC 
CWL4646C 
C''L464''0 

C'(L46490 
C*L46500 
C''L46510 
C''L46520 
CLUeSBO 
C''L46540 
C''L46550 
C''L46560 
C"'L46570 
CLUfiSeO 
C''L46590 
C11L46600 
C''L46610 
C''L46620 
C''L46630 
CML46640 
C'«L46650 
C«L45660 
CML46670 
C'?L46680 
C'<L46690 
CWL46700 
C'!L4671Q 
CML46'720 
C''L46730 
CWL46740 
C''L46~50 
C^L46760 
C'fL46770 
CPL467S0 
CML46790 
CML46S00 
C''L46?10 



SSSI33 3200 COy^IEBCIAL INSTH'JCTION SET TEST 06-238 ROO PAGE 107 09:37:03 06/09/81 



SUBHOU'TISES 

003A«6 C350 34E0 

C03A4ft iHFO 1222 

OOSf.UE 030E 



0000 3A50 

003A50 2«90 

003^52 5875 490C 0000 

CQ3\5S 58S6 4900 0000 

003?.5E 0578 

0C3A60 4230 3A70 

003A64 2694 

003A66 C590 0010 

00'?.6A 4230 3?.52 

C03J.6E 030F 

003A70 C8A0 3233 

003A74 40A0 17A2 

003A78 40A0 175A 

0C3A.7C 41E0 3A82 

003ASO 030? 



0000 3A82 

003562 40F0 8322 =OOU?AE 

003A86 24A0 

OCjAeS 24B0 

OCSASA 2408 

C03A8C 5315 4A00 0000 

0C3A92 CS2B 3562 

0:3A;6 41F0 UFA 

003A9A 25A4 

003A9C 26B8 

G--3A9E C5A0 0010 

CC3AA2 4230 3fl8A 

003AA6 24A0 

0C3AAS 24B0 

0C3AA?. 2406 

003AAC 5816 4A00 OOOC 

003AB2 C32B 3536 



ii682 

4583 

4684 

4685 

4686 

4687 

4638 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 

4699 

4700 

4701 

4702 

4703 

4'704 

4705 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4^13 

4714 

4715 

4716 

4717 

4718 

4719 

4720 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 



LHI 
BAL 
3E 



S5,LFBACT 

LINK,F3INT 

RET 



LOAD ACT EEG COh'TENTS 
PEINT ACTUAL BESULT 
RETUBN TO CALL 



* 

♦ STBPCHK * 

■ic 

* THIS aOUTINE CHECKS THE SESDLT OF THE STEP INSTBUCTICN BY A 
COtiPAHISOR OF THE DESTINATION STEING IN XEH05Y WITH THE STBIHG * 
EXPECTED. ALL 31 DIGITS AND THE COBEECT SIGK ABE CHECKED. IF 

THE RESULTS DC HOT 1ATCH, STBPNG WILL PRINT THE EXPECTED STHING * 
AND THE ACTUAL STP.IKG GFNERATED. * 



STBPCHK EQU 



SCKKI 



SCHK2 



STBPNG 



SSG1 



SNG2 



LIS 

L 

L 

CLR 

BNE 

MS 

CLHI 

BL 

BE 

LHI 

STH 

STH 

BAL 

BE 



nju 

STH 

LIS 

LIS 

LIS 

L 

LHI 

BAL 

AIS 

AIS 

ClHI 

BL 

LIS 

LIS 

IIS 

LHI 



B9,0 

R7,0(R5,B9) 

B8,0(a6,P9) 

E7,K8 

SCHK2 

R9,4 

E9,16 

SCHK1 

LINK 

E10,C*23' 

E10,ERSN0 

EICSOSSE 

EEI, STBPNG 

LINK 



LI»:K,LINKSAV 

E 1 , 

B11,0 

P0,8 

R1, OCRS, RIO) 

E2,ASCIWD1(S11) 

LINK,HEXASC 

E10,4 

P. 1 1 , 8 

BIO, 16 

SNG1 

E10,0 

aii,o 

SO, 8 

R1,0CR6,E1C) 

R2,ASCIHD2(E11) 



CLEAR INDEX INTO STRING 

LOAD yOSD FEOH EX? STRING 

LOAD WORD FSOK ACT RESULT STRING 

COMPARE EXP TO ACT STRING SEGMENT 

HOT EQUAL, GO TO ERROB 

ISCEEMENT INTO STRING 

CHECK IF COSE ALL 31 + SIGH 

LOOP TIL DONE 

RETURN TO TEST 

ERROR 23 STRING CO»!PARE FAILURE 

STORE 

SET ERE FLAG 

GO PEINT ERROR AND S'^RINGS 

RETURN 



SAVE LINK ADR 
CLEAR INDEX 
CLEAR DEST INDEX 
LOAD NO OF DIGITS 
LOAD DIGITS TO CONVERT 
LOAD DEST ADB (CONVERTED) 
CONVEET WORD EXPECTED 
INCREMENT FOE NEXT WORD 
INCR FOB NEXT DEST 
CHECK IF ALL CONVERTED 
LOOP TIL ALL DONE 
CLEAR INDEX 
CLEAR DEST ISDEX 
LOAD NO OF DIGITS 
LOAD DIGITS TO CONVERT 
LOAD DEST ADR (CONVERTED) 



C''L46820 
rwL46830 
CML4684C 
C?fL46850 
CKL46860 
CML46870 
^145380 
C*L46890 
C''L46900 
CWL46910 
CWL46920 
^146930 
CSL4fi940 
CML46950 
CWL46960 

cLaegTO 

CKL46980 

C''L46990 

C*rL47000 

CKL47010 

CFL47020 

C'''L47030 

CML47040 

C?iL470';0 

C?'L47060 

C?!L47070 

C''L47080 

C?fL47090 

CaL47100 

C'<L47110 

C!?L47120 

C»'L47130 

CWI,U7140 

C'?I47150 

C?<L47160 

C!?L47170 

C?'L47ieO 

CML47190 

CWL47200 

CFL47210 

CKL47220 

CML47230 

C!'L47240 

CtfL47250 

C?'L47260 

C!?L47270 

C'?L47280 

CML47290 

CWL47300 

C«L47310 

C'»L47320 

CHLftTSBO 

C>!L47340 
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SCBHOUTISE? 



003AB6 
003ABA 
003ABC 
003ABE 
003AC2 
003AC6 
003 AC 8 
003ACC 
003AD0 
003ADlt 
003RD8 
003ADC 
003AE0 
003AEt 
003AE8 
003AEC 
003AF0 
003AF4 
003AF8 



0C3AFA 
003AFE 
003B02 
003B06 
003BCA 
003P0E 
003B12 
003B11+ 
003&1A 
003F1C 
00331S 
003B22 
003B26 
C03328 
0C3B2C 
003330 



41F0 UFA 

26A4 

2fiB8 

C5A0 0010 

!i2S0 3AAA 

2405 

5310 87D8 =00t2A4 

C820 U?9E 

41F0 UFA 

C850 179A 

41F0 1222 

C850 428a 

41F0 1222 

C850 3558 

41F0 1222 

C350 352C 

41F0 1222 

48F0 87B0 =0042A8 

030E 



40F0 87AA =00U2A8 

Cf?40 OOOC 

4300 3B1C 

40F0 879E =0042Aa 

C?U0 GOOD 

4300 3B1C 

0853 

D345 4300 3110 

9044 

0312 

D3o1 399A 

C460 OOOF 

0'546 

43 30 3E3C 

CBAO 3534 

4-}A0 17A2 



4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4745 
474S 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 

4756 
4757 
4758 
4759 
4760 
4761 
4762 
4763 
4754 
4-'55 
4766 
4757 
4768 
4769 
4770 
1771 
4772 
4773 
4774 
4775 
477J 
liijl 
477R 

U780 
47^1 
4782 
4733 
4734 
4785 
4786 
U7e7 



BAL 1INK,HEXASC 



CONVERT 

ISCS INTO ST5IK3 

INCE DEST 

CHECK I? DONE 

LOOP TIL DONE 

LOAD SO OF DIGITS 

LOAD INSTRUCTION ADE 

LOAD CONVEPTED DEST AD? 

CONVEBT 

LOAD EEBOE 

PRINT EHROB NO 

LOAD INST KSG AD" 

PRINT MSG 

LOAD «SG ADR 

PRINT EXP STRING 

LOAD KSG ADB 

PRINT ACT SPRING 

RESTORE LINK ADS 

PETURN TO CALL 



* * 

* PKCHK * 

* * 

* THIS ROUTINE CHECKS THE RESULT OF THE F!!'/ INSTRUCTION. IT DOES * 

* THIS BY FIRST COMPARING THE EXPECTED SIGN TO THE GENERATED SIGN * 

* AND THEN COHPARING THE INSTRUCTION GENERATED PACKED DIGITS "^0 * 

* DIGITS GENERATED IN THIS ROUTINE FROM THE UNPACKED SOURCE. * 

* IF LEADING ZERO FILL IS REQUIRED, THE FILL CHARACTER WILL BF * 

* CHECKED ALSO AS TO CHARACTER GENERATED AND CORRECT NOHBER * 

* OF LEADING ZEROES. ANY ERROR IN SIGH, DIGITS, OR LEAD FILL * 

* WILL BE PRINTED BY SGNERR, DIGERR, OR IZEER RESPECTIVELY. * 



AIS 


RIO, 4 


AIS 


S11,3 


CLHI 


P1C,16 


BL 


SNG2 


LIS 


E0,6 


L 


R1,INSTADB 


LHI 


R2,ASCIADR 


BAL 


LINK,HEXASC 


LHI 


R5,ERRMSG 


BAL 


LINK, PRINT 


LHI 


R5,INSTKSG 


BAL 


LINK, PRINT 


LHI 


R5,STBPEXP 


BAL 


LINK, PRINT 


LHI 


R5,STBPACT 


BAL 


LINK, PRINT 


LH 


LIHK,LINKSAV 


BR 


RET 



**************■*********^ 



Ir^tr-Jt-fc^-A-ikik 



PKCHK 



?KCHK1 



PKCHK2 



PKCHK3 



STH LINK,LINKSAV 

LHI F4,X'0C" 

B PKCHK3 

STH LINK,LINKSAV 

LHI R4,X'0D' 

3 PKCKK3 

LR R5,H3 

13 E4,UPKSRC(R5,E9) 

SRHLS R4,4 



LR 

LB 

SHI 

CLR 

BE 

LHI 

STK 



R1,S2 

F6,PKDEST(P1) 

R5,X'0F' 

E4,R5 

PKCHK4 

S10,C'54' 

g10,ERRS0 



fc** *********************** ********** 



SAVE LINKING ADDRESS 

LOAD + SIGN VALUE 

GO TO COMPARE 

SAVE LINKING ADDRESS 

LOAD - SIGN VALUE 

GO TO COMPARE 

LOAD SEC LENGTH 

LOAD SIGN BYTE 

SHIFT TO GET SIGN DIGIT 

LOAD DEST LENGTH 

LOAD LAST BYTE DEST 

AND TO GET SIGN 

COMPARE SIGNS 

EOUAL GO OH 

LOAD ERROR NO 

STOPF 



C>tL47350 

CaL47360 

C''L47370 

C'«L473S0 

C''L4739C 

CWL47400 

CKL47410 

CKL47420 

C'«L47430 

CHL47440 

CFL47450 

C''L474fiO 

C'»L47470 

CWI,U7480 

C''L47«90 

C'(L4-7500 

0*147510 

C»^L47520 

CWI4''530 

CML475U0 

C!'L4'7550 

CML47550 

CML47570 

CWL47580 

CLUTSgO 

CWL47600 

CWL47610 

C!'L47520 

CHI47630 

CML47640 

C"L47650 

CKL47660 

C''L«7670 

Cl'L4"'680 

€"147690 

CWL47700 

C'!L47-710 

C''L47720 

CML47730 

C?'L47740 

C»fL47750 

C'*14'7760 

CVL47770 

C''L4''7S0 

C"L4''790 

C''L47800 

C^L478 10 

C''L47820 

C'«L47330 

CWL4T840 

CML47850 

CWL4786C 

C'fL47P70 
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SU3 


ROUTINES 










003H3U 


40AO 175A 


47S5 




STH 


E10,N0EBE 


003B38 


41£0 3D32 


4789 
4790 


* 


BAL 


EET,SGNEEH 


003E3C 


0853 


4791 


PKCKK4 


LS 


S5,S3 


003B3E 


D345 4900 3110 


4792 


PK1 


LB 


E4,UPKSSC(?-5,R9) 


OOSBUy 


C440 GOOF 


4793 




NHI 


E4,X'0F' 


003348 


0812 


4794 




LE 


SI ,E2 


003BUA 


D361 399A 


4795 




LB 


H6,PKDEST(E1) 


003B4E 


9054 


4796 




SEHLS 


H6,4 


003B50 


0546 


4797 




CLE 


84, Ee 


003B52 


4330 3B66 


4798 




BE 


?K2 


003BS6 


C8A0 3535 


4799 




LHI 


E10,C'55' 


003E5A 


4CA0 17A2 


4800 




S?K 


E10,EEPN0 


003B5E 


4OA0 175A 


4801 




STK 


B10,H0?^EE 


003B62 


41E0 3DA0 


4802 
4303 


* 


BAL 


EET,DIGFEE 


003366 


C550 0000 


4804 


PK2 


CLHI 


55,0 


003B6A 


4 3 30 3BDe 


4805 




BE 


ZEROCK 


003B6E 


C510 0000 


4806 




CLHI 


E1,0 


003B72 


4330 3C0C 


4807 




BE 


ZCK3 


003B76 


2T^t 


U808 




SIS 


R5,1 


003B7S 


2711 


4809 




SIS 


El ,1 


003B7A 


D345 4900 3110 


4810 




lB 


E4,UPKSEC<E5,E9) 


003B80 


C440 GOOF 


4311 




NHI 


S4,X'0F' 


003B84 


D361 399A 


4812 




LB 


B6,PKDEST(S1) 


003B88 


C460 OOOF 


4813 




NHI 


E6,X"0F' 


003B8C 


0546 


4814 




CLE 


S4,B6 


OOBBSE 


4330 3^A2 


4S15 




BE 


PK3 


003B92 


C3A0 3535 


4816 




LHI 


E10,C"55* 


Q03B96 


40AO 17A2 


4817 




STH 


K10,EERHu 


003E9A 


40A0 175A 


4818 




STH 


E10,NOEES 


003E9E 


41E0 3DA0 


4819 
4820 


* 


BAL 


EET,DIGERE 


003BR2 


C550 0000 


4821 


PK3 


CLKI 


R5,0 


003BA6 


4330 33D6 


4822 




BE 


ZEROCK 


003BAA 


2751 


4823 




SIS 


R5,1 


0033AC 


D345 4900 3110 


4824 




LP 


E4,UPKSRCCR5,S9) 


003BB2 


C440 OOOF 


4625 




NHI 


R4,X'0F' 


003BB6 


D361 399A 


4826 




LB 


E6,PKDSST(ai) 


003B3A 


1064 


4827 




ShIS 


E6,4 


003B3C 


0546 


4828 




CLE 


S4,S6 


003BBE 


433G 3BD2 


4829 




BE 


PKU 


003BC2 


C8A0 3535 


4830 




LHI 


S10,C'55' 


003BC6 


40A0 17A2 


4831 




STH 


S10,EEEN0 


003BCA 


40A0 175A 


4832 




STh 


E10,NOFRP 


003BCE 


41E0 3PA0 


4833 
4834 


* 


BAL 


RET,DIGESS 


003BD2 


4300 3B65 


4835 
4836 
4837 


PK4 

* 

* 


B 


PK2 


003BD6 


0863 


4838 


ZEEOCK 


LS 


R6,S3 


003ED8 


9061 


4839 




SEHLS E6,1 


003BDA 


2661 


4340 




AIS 


R6,1 



SET ERR FLAG 

ERROR 54 SIGN ERROR 

LOAD SRC LENGTH 

LOAD LAST BYTE SRC 

AND TO GET LAST DIGIT 

LOAD DSST LENGTH 

LOAD LAST BYTE DEST 

SHIFT TO GST LAST DIGIT 

COHPARE LAST DIGITS 

EQ'JAL GO ON 

LOAD EEEOS NO 

STORE 

SET ERR FLAG 

ERROR 55 DIGIT ERROR 

CHECK IF SEC EXHAUSTED 

GO TO CHECK DEST FOE LEAD ZERO 

CHECK IF DEST EXHAUSTED 

RESTORE LINK, RETUEN 

DECHEBENT COUNT 

DECREMENT COUNT 

LOAD SRC DIGIT 

AND TO GET BIGHT DIGIT, DROP ZONE 

LOAD DEST DIGIT 

AND TO GET EIGHT DIGIT 

COMPARE DIGITS 

EQUAL GO OS 

LOAD ERROR NO 

STORE 

SET EHP ■^LAG 

EEROE 55 DIGIT ERROR 

CHECK IF SBC EXHAUSTED 

GO TO CHECK FOR LEAD ZERO 

DECREMENT SRC COUNT 

LOAD NEXT SRC DIGIT 

AND TO GET DIGIT 

LOAD DEST DIGIT AGAIN 

SHIFT TO GET LEFT DIGIT, DROP ZONE 

COMPARE DIGITS 

EQUAL GO ON 

LOAD ERROR NO 

STORE 

SET EFR FLAG 

ERROR 55 DIGIT EEEOS 



LOAD sac LENGTH 

DIVIDE BY 2 

ADD 1 TO GFT DFST MINIMUM LFNGTH 



CML47S80 

CML47890 

CML4'^900 

CML47910 

C''L47920 

CWL47930 

C«L4-'940 

r"L4795C 

CML47q60 

CyLU797C 

C«L47980 

C>^L47990 

C''L4S000 

C''L48010 

CML48020 

CML4S030 

CML48040 

CWL48050 

CML43060 

CML4S070 

CML48080 

C''L48090 

CML48100 

CML48110 

CML48120 

CML4813G 

CKL481,40 

CML48150 

C''L48160 

C'fL4S17n 

C»'L48180 

C'«L48190 

CWL48200 

CML48210 

CML48220 

C!'L4R230 

CML48240 

CML4S250 

CML4R260 

CML48270 

C'«L487S0 

^148290 

CML48300 

C'»L4e310 

C'<LH9320 

C''L48330 

C^^L48340 

CML48350 

C*L48360 

CML48370 

CML48380 

CMI48390 

C''L48400 
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003BDC 


0342 




003BDE 


2'iUI 




0Q3BE0 


056U 




003BE2 


U330 


3C0C 


003BE6 


D371 


399A 


003BEA 


C570 


0000 


003BEE 


4330 


3C02 


003BF2 


caAO 


3536 


003BF6 


4OA0 


17A2 


OOSBFA 


40A0 


175A 


003BFS 


41F0 


3F62 


003C02 


2711 




003C0U 


C510 


0000 


003C08 


1*230 


3BE6 


0O3C0C 


43F0 


9698 =0042A 


003C10 


330F 





003C12 
003C16 
003C1A 
003C1E 
C03C22 
003C26 
003C2A 
003C2C 
003C32 
003C36 
003C38 
0C3C3C 
0C3C3K 
DOJCliO 
Q03C«H 
003C«8 



0000 3C12 

40F0 8692 =0042A8 

C340 OOOC 

4300 3C3fi 

40FO 8686 =0042A8 

C840 OOOD 

4300 3C36 

0853 

D345 4900 33A0 

C440 OOOF 

OH 12 

D351 39AA 

9064 

0546 

4330 3C54 

C5A0 3634 

40 AC 1'TA2 



4841 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
4850 
4851 
4852 
4853 
4854 
4855 
4856 
4857 
4858 
4859 
4860 
4861 
4862 
4853 
4364 
4865 
4866 
4867 
4868 
4869 
4370 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4373 
4879 
4830 
46B1 
4682 
4883 
a884 
4685 
4836 
48i7 
4838 
4339 
4e?0 
4891 
■.392 
«S93 



P.4,S2 



ZCK1 



ZCK2 



JCS3 



**************** 



AIS 


E4,1 


CLE 


E6,SU 


BE 


2CK3 


L3 


R7,PKDEST(E1) 


CLHI 


R7,0 


BZ 


ZCK2 


LHI 


R10,C'56' 


SIH 


R10,E9HN0 


STH 


EICHOESR 


BAL 


EET,LZERB 


SIS 


31,1 


ClHI 


R1,X'0' 


BNE 


ZCK1 


LH 


LXKK,LINKSAV 


3R 


LINK 



LOAD DES'^ LENGTH 

ADD 1 TO OBTAIN FINAL LENGTH 

CHECK ACTUAL DFST LEN TO «IN RFQ'D 

DOSF ? 

LOAD FILL DIGIT 

CHECK LEADING ZERO FILL 

ZERO FILL OK 

LOAD ERROR NO 

ST03F 

SET ERE FLAG 

ERROR 56 LEAD 



ZERO FILL NO GOOD 



DECREMENT 

CHECK IF DEST EXHAUSTED 
NOT DONE W DEST, LOOP 
RESTORE LINK ADR 
RETURN TO TEST 



fk***ii1tir**-k*****ic-kii 



t*******************************< 



UPKCK 

THIS ROUTINE CHECKS THE RESULT OF THE USV INSTRUCTION. IT DOES 
THIS BY FIRST COMPARING THE EXPECTED SIGN TO THE GENERATED SIGN 
AND THEN COMPARING THE INSTRUCTION GSKEPATED ZONED DIGITS TO 
ZONED DIGITS GENERATED IN THIS ROUTINE FROM THE PACKED SOURCE. 
IF LEADING ZERO (ZONED X'30') IS RECUIPED, THF FILL CHARACTER 
SILL 3E CHECKED ALSO AS TO CHARACTER GENERATED AND CORRECT 
NUMBER OF LEADING ZEROES (X'30'). ANY ERROR IN SIGN, ZONED 
DIGIT, OP FILL WILL BE PRINTED BY SGNEPR, DIGERS, OR LDSOFR" 
RESPECTIVELY. 



*************j 



r***************************************************** 



UPKCK 



UPKCK1 



UPKCK2 



GPKCK3 



EQU 

STH 

LHI 

B 

STH 

LKI 

B 

LR 

LB 

NHI 

LR 

LB 

SRHLS 

CLR 

BE 

LHI 

STK 



LINK,LINKSAV 

R4,X'0C' 

UPKCK3 

LINK,LINKSAV 

R4,X'0D' 

UPKCK3 

R5,R3 

34,PKSRC(R5,E9) 

R4,X'0F' 

R1,R2 

R6,UPKDEST(R1) 

R6,4 

Rtt,R6 

UNPK 

S10,C'64' 

RI-Q.EERNO 



SAVE LINKING ADDRESS 
LOAD + SIGN VALUE 
GO TO CO!IPARE 
SAVE LINKING ADDRESS 
LOAD - SIGN VALUE 
GO TO COMPARE 
LOAD SBC LENGTH 
LOAD LAS"^ ?YTE SRC 
AND TO 03TAIK SIGN 
LOAD DEST LENGTH 
LOAD LAST BY'^E DFST 
SHIFT TO OBTAIN SIGN 
COHPARE SIGNS 
SIGNS OK GO ON 
LOAD EHROE NO 
STORE 



C«'L48410 
C?^L48420 
C''L43430 
CML4S440 
C?'L48450 
C''L4a4fiO 
CWL48470 
CML48480 
C»'L48490 
C''L4BS00 
C»'L4P510 
C*!L48520 
CML4S530 
C*L48540 
C*L4S550 
C'?L49560 
rML48=;-70 
C''L48580 
C>'L48 = 9C 
CLUSfiOO 
CHI4861Q 
C';L4S620 
C'?L48630 
C'rL486UC 
CWL48650 
C'»L48660 
CML4867C 
CWL43680 
CLaSfQO 
C''L48''0O 
0*148710 
0*148720 
C''L«8730 
C*'L48740 
CML48750 
C»TL48760 
C''L48770 
C''L48"?80 
C'fL48790 
C"'L48800 
CILUSSIO 
C*L48820 
CWL4BS30 
CWL48840 
C"L48850 
C''L43860 
C'«L48870 
CKL48880 
C»L48390 
C'»L4R900 
C;^L48910 
C'»L48920 
CWL4S930 
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SUBROUTINES 



003C1+C 


uoao 


175A 


003C50 


it ISO 


3D32 


003C54 


0853 




003C56 


D3ii5 


4900 33A0 


003C5C 


oQiiit 




003C5E 


C6 40 


0030 


C03C62 


D«12 




003C64 


D351 


39AA 


003C68 


C450 


OOOF 


003C5C 


CS60 


0030 


003C70 


0546 




003C72 


U330 


3C86 


0C3C76 


C3A0 


3635 


003C7A 


IJOAO 


17A2 


003C7K 


KOAO 


175A 


003C82 


41E0 


3DA0 


003C86 


C550 


0000 


003C8S 


4330 


3CF6 


003C8E 


C510 


0000 


003C92 


ii330 


3D2C 


003C96 


2751 




003C98 


2711 




003C9A 


D3H5 


4900 33A0 


003CAO 


CUKO 


OOOF 


003CA4 


C640 


0030 


003CA8 


D361 


3 9AA 


003CAC 


0545 




003CAE 


4330 


3CC2 


003CB2 


csao 


3 6 35 


003CB5 


40A0 


17A2 


C03CBA 


40 AO 


175A 


003CBE 


41E0 


3DA0 


003CC2 


C510 


0000 


003CC6 


4330 


3D2C 


003CCA 


2711 




003CCC 


3345 


4900 33A0 


003CD2 


9044 




003CD4 


C640 


0030 


003CD8 


D361 


39AA 


003CDC 


0546 




003CDE 


4330 


3CF2 


003CE2 


C8A0 


3635 


003CE6 


40A0 


17A2 


003CEA 


4 0AO 


175A 


003CEE 


41E0 


3DA0 


003CF2 


4300 


3C86 



4834 




STH 


E10,N0ERE 


4895 




BAL 


RET,SGNERR 


4896 


* 






4897 


UNPK 


LK 


R5,E3 


4893 


UK? XI 


LB 


E4,PKSEC(S5,?.9) 


4899 




SSHLS 


E4,4 


4900 




OH I 


F4,X'30' 


4901 




LE 


E1,H2 


4902 




LB 


56,tJPKDEST(E1) 


4S03 




NHI 


P6,X'0?' 


4904 




OHI 


E6,X-30' 


4905 




CLR 


E4,H6 


4906 




BE 


UNFK2 


4907 




LHI 


E10,C'65' 


4908 




STH 


S10,EERN0 


4909 




STH 


E10,N0ESE 


4910 




BAL 


EET,DIGEHB 


4911 


* 






4312 


UNPK2 


CLKI 


B5,0 


4913 




BE 


LD30 


4914 




CLHI 


51,0 


4915 




BE 


LD30,0 3 


4S16 




SIS 


B5,1 


4917 




SIS 


31,1 


4918 




LB 


E4,?KSEC(E5,E9) 


4919 




KHI 


R4,X'F" 


4920 




OHI 


E4,X'30' 


4921 




L3 


S6,UFKDE3T(E1) 


4922 




CLE 


E4,56 


4923 




3F 


USPK3 


4924 




LHI 


B10,C'65' 


4925 




STH 


EICEERNO 


4926 




STH 


EICNOEEE 


4927 




BAL 


EET,DHiSER 


492" 


* 






4929 


UHPK3 


CLHI 


E1,0 


4930 




BE 


LD30.03 


4931 




SIS 


R1,1 


4932 




LB 


R4,PKSRC(R5,F9) 


4933 




SEHLS 


S4,4 


4934 




OHI 


R4,X'30' 


4935 




LB 


E6,UPKDEST(R1) 


4936 




CLP 


R4,E5 


4937 




BE 


USPK4 


4938 




LHI 


S1C,C"65' 


4939 




STK 


E10,EERKO 


4940 




STH 


aiO,NOERE 


4941 




BAL 


SST,DIGE8E 


4942 


* 






4943 


UNPK4 


B 


UNPK2 


4944 


* 






4945 


-* 






4946 


* 







SET ERE FLAG 

ESEO? 64 SIGN ERPOE 

LOAD sac LENGTH 

LOAD LAST BYTE SRC 

SHIFT TO GET LAST DIGIT SRC 

OR IN STD ZONE DIGIT 

LOAD BEST LENGTH 

LOAD LAST BYTE DFST 

AND TO OBTAIN LAST DIGIT 

OR IN STD ZONE DIGIT 

COMPARE LAST DIGITS 

EQUAL GO ON 

LOAD ERSOB NO 

STORE 

SET EHH FLAG 

ERROR 65 DIGIT ERROR 

CHECK IF SRC EXHAUSTED 

GO CHECK LEAD "SO" FILL 

CHECK IF DEST EXHAUSTED 

ESSTCEE LINK, RETURN 

DECRE3EST SSC LENGTH 

DECEEWENT DEST LENGTH 

LOAD SEC #BYTE 

AND TO GFT RIGHT DIGIT SBC 

OR IN STD ZONE DIGIT 

LOAD NEXT DEST BYTE WITH ZONE 

COWpAEE DIGITS AND ZONES 

EQUAL GO ON 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 65 DIGIT EEEOR 

CHECK IF DEST EXHAUSTED 

EESTCHF LINK, RETURN 

DECREKE'JT DEST LENGTH 

LOAD SRC BYTE 

SHIFT TO OBTAIN LEFT DIGIT 

OR IK STD ZONE DIGIT 

LOAD NEXT DEST BYTE 

COMPARE DIGITS AND ZONES 

EQUAL 3C ON 

LOAD ERROR NO 

STORE 

SET ??^ FLAG 

ERROR 55 DIGIT ERROR 

LOOP TIL SRC EXHAUSTED 



CML4R94C 
C''L48Q50 
CML48960 
C»L4?970 
C«L48980 
CVL48990 
CML49000 
0*149010 
C»L49Q30 
C''L49030 
C»L49040 
C'?L49050 
^•149060 
C''L49D70 
C^L49080 
C''L49090 
C'<L49100 
C''L49110 
C'«L49120 
C''L49130 
CWL49140 
C?'L49150 
C''L49160 
C''L49170 
C?L4Q180 
C''L49190 
CfL49200 
C»'L49210 
C!<L49220 
C'?L49230 
C'fL49240 
CfL49250 
C*'L49260 
C'rL49270 
CWL49280 
^"149290 
CML49300 
CWL49310 
C''L49320 
CKI49330 
C''L49340 
C:<L49350 
CFL49360 
C«m9370 
CWL49380 
CML49390 
C'"L49400 

CML49420 
CfLU9430 
CKL49440 
C?'L494SQ 
€1149460 
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SUBROUTINE? 



003CF6 


0363 






003CF8 


1151 






003CFR 


2561 






003CFC 


0642 






003CFE 


26m 






003000 


056U 






003D02 


i*330 


3D2C 




003D06 


D371 


39AA 




O03D0A 


C570 


0030 




0C3D0E 


1*330 


3D22 




003D12 


C8A0 


3535 




003D16 


40A0 


17A2 




003D1A 


40A0 


175A 




003D1E 


41E0 


3E62 




003D22 


2711 






003D21* 


0510 


0000 




O03D28 


4230 


3906 




003D2C 


48F0 


8578 


=00U2« 


O03D30 


030? 







0000 3D32 

003D32 DOOO 85C2 =O0ii2F8 

0C3r35 2401 

003D38 0814 

003D3A CS20 3D8A 

003D3E 41F0 UFA 

003C42 2401 

003D44 0315 

003D46 C820 3ri9C 

003D4A 41F0 UFA 

C03i;4E 2405 

003D50 5810 8550 =O0ii2Aii 

003n54 Ce20 429B 

003D58 41F0 UFA 

003D5C C850 179A 

003D50 41F0 1222 

003D64 C850 4284 

003E58 41F0 1222 

003D6C C850 3D7A 

003D70 4 



1222 



4947 

4948 

4949 

4950 

4951 

4952 

4953 

4954 

4955 

4956 

4957 

4958 

4959 

4960 

4961 

4962 

4963 

4964 

4955 

4956 

4967 

4963 

4969 

4970 

4971 

4972 

4973 

4974 

4975 

4976 

4977 

4978 

4979 

4980 

4981 

4982 

4983 

a984 

4985 

4986 

4987 

4988 

4939 

4990 

4991 

4992 

4 99 3 

4994 

4S95 

4996 

4997 

4 998 

4993 



LD30 LH Se,33 

SLLS S6,1 

AIS P6,1 

LB R4,?2 

AIS 54,1 

CLS R6,R4 

BE LD30.03 

Lr30.1 LB R7,UPKDEST(S1) 

CLKI P7,X'30" 

3Z LD30.02 

LHI ?10,C'66' 

STH RIOjERRNO 

STH E10,NOFRR 

BAI RET,LD30ERE 

LD30.02 SIS E1,1 

CLHI P.1,X'0" 

BNE LD30.1 

LD30.03 LH LINK,LI!«"KSAV 

BR LINK 



LOAD SRC LENGTH 

SHIFT TO MULTIPLY BY TWO 

ADD 1 TO GET DEST RINIfUM lEKGTH 

LOAD DEST LENGTH 

ADD 1 TO GET DEST LENGTH 

COSPAEE ACTUAL DEST LEN TO MIN REQ'D 

EQUAL GO ON 

LOAD NEXT DEST BYTE 

CHECK LEADING "30" FILL CHAP 

LEAD ZERO CX 

LOAD ERROR NO 

STORE 

SET ERR FLAG 

ERROR 66 LEAD ZERO (PAD •30' > NG 

DECREMENT DEST LENGTH 
CHECK IF DEST EXHAUSTED 
NOT DONE W DEST, LOOP 
RESTORE LINK ADR 
DONE, RETURN TO TEST 



t****************** 



************************************** *********"**^ 

* 

* SGNERR 
* 

* THIS ROUTINE PRINTS THE EXPECTED SIGN AND THE SIGN GENERATED 

* BY THE PKV OB UMV INSTRUCTIONS. 



****************************************************** 



r* ************* 



SGNERR 



SQU 

ST3 

LIS 

LR 

LHI 

BAL 

LIS 

LR 

LHI 

BAL 

LIS 

L 

LHI 

BAL 

LHI 

SAL 

LHI 

BAL 

LHI 

BAL 



RO,ERRSAVE 

H0,1 

R1 ,R4 

E2,EXPSGN 
LINK,HEXASC 
P0,1 
R1,H6 

a2,ACTSGN 

LINK,HEXSSC 

E0,6 

S1,INSTADE 

32,ASCIADR 

IISKrHEXASC 

F5,E3R>!SG 

LINK, FEIST 

P5,TNSTSSG 

IINK,P5INI 

E5>3;;SK3G 

IINK,?FIST 



SAVE TEST PEGS 

LOAD NO OF DIGITS 

LOAD EXPECTED 5IGK 

LOAD CORVEETFD DEST ADR 

CONVERT 

LOAD NO OF DIGITS 

LOAD ACTUAL SIGN 

LOAD CONVERTED DEST ADS 

CONVERT 

LOAD NO OF DIGITS 

LOAD INSTRUCTION AD? 

LOAD CONVERTED DEST ADR 

CONVERT 

LOAD ERROR 

PRINT ERROR NO 

LOAD INST KSG ADS 

PRINT KSG 

LOAD SGN ERROS Aj? 

PRINT SIGN EE3CE '?SG 



CMLlt9470 
C'!L4948Q 
C«L49490 
€"149500 
C''L49S10 
CtfL49520 
0^149530 
CWL49540 
C''L4955n 
C"'L495F0 
Ct'L49570 
C«'L4<55aO 
CML4959C 
CrL4<'600 
C^L49610 
C''L49620 

CML49640 
C"L49650 
CFL49560 
C''L49670 
CKL49580 
C''L49690 
CML49700 
Ci'L49710 
Cf;L4a720 
C''L49730 
C''L49740 
CWL49750 
CrL49760 
C?L49770 
CnL49780 
€"149790 
C''L49800 
C>fL49810 
C''L4?820 
Ci'L49830 
C?1L49S40 
CML49850 
C1'L49860 
C';L49870 
C''L49880 
CWL4PS90 
C''L49900 
C"L49910 
C''L49920 
CWL49930 
€"149940 
C'«L49950 

C?!L49970 
C'*L49980 
CI'L49990 
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0C3t74 D100 8580 =0042F8 
003D78 030H 



003D7A 4553 5045 4354 4544 

003D82 2053 4947 4E20 3r70 

C03D8A 4120 2020 4143 5455 

003D92 414C 2053 4947 4E20 

G03D9A 3D20 4220 

003D9E ODOO 

0000 3D8A 



5000 
5001 




BE 


E0,EHESAVE 
EET 


BESiOSE TEST PEGS 
PETUES TO CALL 


5002 
5003 
5004 


* 
* 

SGSMSG 


DC 


C EXPECTED SIGN 


= A ACTUS! SIGN = 3 



crisoooo 

CWL50010 
0*^150020 
C^L5C030 

,X'0D0O' ciLsooyo 



0000 3D9C 



5005 EXPSGS EQU SGNMSG+16 C^150050 

500fi ACTSGN ECO SGK»!SG+34 C55L50060 

5007 * CLSOOTO 

5003 * CH1500B0 

5009 ********************************************************************* CLBOOgO 

5010 * * C?<LS0100 

5011 * BIGSEP * Cl^OIIO 

5012 * * CK150120 

5013 * THIS 30UTINE PRINTS THE EXPECTED DIGIT AND THE DIGIT GENERATED * CH150130 

5014 * BY THE PKV OR "JMV INSTRUCTIONS. * C^L50140 
5C15 * * C1LF0150 

5015 ********************************************************************* C5150160 

5017 * CWL50170 

5018 * CML50180 
0000 3DA0 5019 DI3SSH EQU * CWL50190 

003DA0 DOOO 8554 =0042F8 5020 STS R0,ERRSAVE SAVE TEST REGS CfL50200 

003DA4 2402 5021 LIS 50,2 LOAD KG OF DIGITS 0^150210 

5022 * REG 1 CONTAINS BEST INDEX C«L50220 

003DA6 ^^820 3E04 5023 LHI B2,DIGASC LOAD CONVERTED DEST ADB C«LS02?0 

003DAA 411^0 UFA 5024 3AL LISK,HEXASC CONVERT C>!L50240 

502'^ LIS R0,2 LOAD NO OF DIGITS CNL50250 

502^^ LE g1,R4 LOAD EXP DIGIT 0^150260 

003DB2 ^820 3E11 5027 LKI F2,DIGEXP LOAD CONVERTED DEST ADR C»?L50270 

003D36 41F0 UFA 502? BAL LINK,HEXASC CONVERT C«fL50280 

003DBA 2402 5029 IIS BO, 2 LOAD NO OF DIGITS C?<L50290 

003DBC 0816 5030 LB R1,R6 LOAD ACT DIGIT CKLSOSOO 

003DBE "820 3E1D 5031 LHI S2,DIGACT LOAD CONVERTED DEST ADR C«L50310 

003DC2 41F0 UFA 5032 BAL LIKK,HEXASC COSVEET CML50320 

501T LIS P0,6 LOAD NO OF DIGITS C''L50330 

0042A4 5034 L R1,INSTAr.R LOAD INSTRUCTION ADR ^150340 

5035 LHI R2,ASCIADE LOAD CONVERTED DEST ADR C?'L50350 

003DDO 41F0 UFA 5036 BAL LINK,HEXASC CONVERT C!JL50360 

003DD4 C350 179A 5037 LHI R5,EERHSG LOAD ERROR C'(L50370 

003DD8 41P0 1222 5038 BAL LINK, PRINT PRINT ERROR SO C''L50380 

003DDC C850 4284 5039 LHI R5,INST?tSG LOAD INST HSG ADR CYL50390 

003DE0 41F0 1222 5040 BAL LINK, PRINT PRINT MSG CWL50400 

003DE4 C950 3DF2 5041 LHI E5,DIGJ5SG LOAD DIGIT «SG ADR CML50410 

003DE8 41^0 1222 5042 BAL LINK, PRINT PRINT DIGIT HSG C«L50420 

003DEC D100 8508 =0042F8 5043 LK BO,ERRSAVE RESTORE TEST REGS C''L50430 

5044 3E RET RETURN TO CALL CRLSOUaO 

5045 * C'LSOaSO 

5046 * CML50460 
003CF2 4445 5354 494E 4154 5047 DIGMSG DC C ' DESTINATION DIGIT AA',X"8D0A' ^150470 



003DAE 2402 
003DB0 0814 



C03CC6 2406 
003DC8 5310 84D8 
003DCC C820 429B 



003DFO 030E 



003DFA 


lt94F 


4E20 


1449 


474S 


003E02 


51*20 


«im 






003E06 


8D0A 








Q03E0S 


1=558 


5045 


4354 


4544 


003E10 


2058 


5320 


2020 


4143 


003S18 


51* =^5 


K1UC 


2059 


5920 


003E20 


OnOO 
0000 
0000 
0000 


3E0I* 
3E11 

3E1D 
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5048 DC C'EXFECTED XX ACTUAL YY',X'0DOO* C''L50480 

5049 DIGASC EQU OIGHSG+13 C''l50490 

5050 DIGEXP ECU DIGKSG+31 C^LSOSOC 

5051 DIGACT EQU DIGHSG + 43 C''L50510 

5052 * C';L50520 

5053 * ^"150530 

5054 **********************************************)*****************■**«*** C^L5 0540 

5055 * * CLSOSSO 

5056 * PADEBa * ^150560 

5057 * * C^150570 

5058 * THIS ROUTINE FSINTS INSTEUCTIOH ADF CN INCOSRECT PAD CHA?- * C*L5058O 

5059 * ACTE.^ DETECTED EOF CPAN, CPANP, ROVE, OH aOVEP INSTaUCTIONS. * C^L50590 

5060 * * CLSO'^OO 
505 1 ********************************************************************* '"'L50610 

5062 * C"L50620 

5063 * CMLE0630 
0000 3E22 5064 FADaHH EQU * FOB CPAN / CPANP / MOVE / KC'EP C''IS0640 

003E22 DOOO 3iiD2 =0042FE 5065 STi! E0,E5ESAVE SAVE TEST REGS CL^O'^SC 

003E26 2406 5055 LIS R0,5 LOAD NO OF DIGITS CfLE0660 

003E28 5810 8478 =0042A4 5067 L R1,IKSTADB LOAD INSTBUCTION ADF C''LS0670 

003E2C C820 a29B 5058 LHI S2,ASCIADE LOAD CONVERTED DEST ADS C^L^Q^SO 

003E30 41F0 UFA 5069 3AL LINK,HEXASC CONVERT C-L50690 

5070 * CLSOTOO 

003E34 C950 179A 5071 LHI P5,SHE}!SG LOAD PAD ERROE MSG ADR CLSn-'IO 

003E38 41F0 1222 5072 EAL LINK, PRINT PRINT PAD EEEOP ^1=50-720 

003E3C C350 4284 5073 LHI R5,IN3TSSG LOAD INSTE ADR KASG C''L50730 

003E40 41^0 122? 5074 3AL LINK, PRINT PRINT >!SG C''L50-740 

003E44 C350 3E52 5075 LHI R5,PADMSG LOAD PAD SSG ADF C^L'^A750 

003E48 41E0 1222 5076 BAL LINK, PRINT PHINT !^SG C''L50760 

003E4C D100 B4A8 =0042F8 5077 LH RO.EERSAVE RESTORE TEST REG'5 ^150770 

003E5C 030i; 507S 3H PET RETURN TO CALL C''L50780 

5079 * C''L'=0790 

003E52 494E 434F 525? 4543 5080 PADMSG DC C'INCOREECT PAD',X"ODO0' C^LSOSOO 
003E5A 5420 5041 4420 
003E60 ODOT 

5081 * CyL508in 

5082 * C''I50P20 

5083 ********************************************************************** rvT '=^0930 

5084 * * C''L50R40 

5085 * L2ERR - LD30FER * C^l'^0850 

5086 * * C*I50860 

5087 * THIS ROUTINE PRINTS THE LEADING ZERO FILL CHARACTER THAT * C«L5087O 

5088 * IS GENEEATFD EY THE Pl^V OR UHV INSTRUCTIONS. * CI^OSSO 
5089* *C^L^0S9O 

5090 ********************************************************************** ^''150900 

5091 * C''I'^0910 

5092 * C''L5j92'^ 
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Sa??.0'JTIh'2S 

0000 3E62 5093 LZER3 SQ'J * FOH LEADING ZERO FILL (0 OB 30) FRFOB CML50930 

0000 3E62 5094 LD30ERE SQ'T L2EHR CWL50940 

5095 * C«L50950 

0G3E62 3000 8!t92 =OClt??e 5096 STK P0,3BBSAVE SAVE TEST REGS CLSOgSO 

003E66 2402 5097 LIS BO, 2 LOAD NO OF DIGITS C*'L50970 

003E68 0817 5098 LB B.1,H7 LOAD FILL CKAEACTER (SITHEB OE 30) C^^LSOOBO 

0D3E6A C320 3EB7 5099 LHI R2,LDASC LOAD CONVSETFD DEST ADE C»'L50990 

003F6E 41F0 UFA 510C BAL LINK,HEXASC COHVEBt C^LSIOOO 

0C3F72 2lt0fi 5101 LIS 80,6 LOAD NO OF DIGITS CJTLSIOIO 

003E7y 5810 8«2C =00I12AH 5102 L B1,INSTADE LOAD INSTEUCTION ADE CML51020 

003E78 C820 429B 5103 LHI E2,ASCIADE LOAD CCNVEBTED DEST ADE C^LEIO^O 

003S7C "IFO UFA 5104 BAL LISK,HEXASC COHVEET CLBIOUO 

003F80 C850 179A 5105 LHI E5,EEHHSG LOAD EREOE C^LSIOSO 

003E8'* 41F0 1222 5105 BAL LIKK,PEINT PBINT EEROF NO CILBIO-^O 

003E88 CaSO U28« 5107 LHI 55,INSTMSG LOAD ISST KSG ADE C!»L'=1070 

003E8C 41F0 1222 5108 BAL LINK, PRIST PRINT MSG C*L51080 

003S90 C850 3E9E 5109 LHI E5,LDHSG LOAD LEAD FILL EBB rSG ADE CLSIOgO 

0Q3E94 i;lFO 1222 5110 BAL LINK, PRINT FEINT LEAD FILL EBBOB C>?L=1100 

003E98 D100 845C =0042FS 5111 LM BO,SERSAVE RESTCEE TEST EEGS C''L51110 

003E9C 030S 5112 BE EET RETURN TO CALL CWL51120 

5113 * CfL51130 

5114 * CWLP1140 
0C359E 4C45 4144 494E 4720 5115 LDHSG DC C'lEADING ZERO FILL CHAR = LL',X'ODOO' CL^II^O 
003EA6 5A45 524F 2046 4S4C 

003SAE 4C20 4348 4152 203D 
003EB6 204C 4C20 
C03SBA ODOO 

0000 3EB7 5116 LDASC EQU LDMSG+25 ^{L^lieO 

5117 ' CHL51170 

5118 * C'^L51180 
51 -jg ******************************************************!(******#******* C'?L51190 

5120 * * C'"L51200 

5121 * LINTNG * CMLS1210 

5122 * * Ci«L51220 

5123 * THIS BOUTINE PRINTS THE INTERRUPT EXPECTED BDT NOT BECSIVED * C»»L51230 

5124 * USSSAGE FOE DATA FORKAT FAULT INTS AND IIP INTS. * C'?L51240 

5125 * * CML51250 

5126 ********************************************************************* CyL'^12'S0 

5127 * CXL51270 

5128 * CWL512R0 
0000 3EBC 5129 LINTNG EQU * C«L51290 

003EBC DOOO 8"38 =0042F8 5130 STK EO,EEESAYE SAVE TEST BEGS CLSISOO 

003ECO 2405 5131 LIS R0,6 LOAD NO OF DIGITS C!^L5131C 

003EC2 5810 83DE =0042A4 5132 L E1,I!(STADE LOAD INSTEUCTION ADP C'fL';i320 

OOBECf. C820 429R 5133 LHI E2,ASCIADS LOAD CONVERTED DEST ADE C'«L51330 

003ECA 41F0 UFA 5134 BAL LINK,HEXASC CONVERT CHL51340 

003ECE C850 179A 5135 LHI P5,ERaMSG LOAD FBROR C^L'^IJBO 

003ED2 41F0 1222 5136 BAL LINK, PRINT PRINT EREOE NO C?L51360 

003ED6 C850 4284 5137 LHI R5,ISSTMSG LOAD INST MSG ADR C'<L51370 

003EDA 41F0 1222 5138 BAL LINK, PRINT PRIST SSG C'-LSIBSO 

003EDE CS50 3EEC 5139 LHI R5,LIHT!iSG LOAD EXP INT J!PG CHL51390 

003EE2 4ir0 1222 5140 BAL LINK, PRINT PRINT INT KSG C'»rL51400 

003EE6 D100 840E =0042F8 5141 LM RCERSSAVE RESTORE TEST EEGS C''L51410 
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003EEA 



003EEC 
003EF4 
003EFC 
003F0I4 
003fOC 
003F10 



003F12 
003F16 
003F1A 
003F1E 
003F20 
003F24 
003F28 
003F2C 
003F30 
003F3it 
003F38 
003F3C 
003F3E 
003FU2 



003F44 
003F4C 
003F54 
003F5C 
003F64 
003F6C 
003F70 

003F72 
003F7A 
003F82 
003F8A 
003F92 



0305 



itgiiE 5H45 5252 555C 

5420 4558 5045 4354 

4544 2042 5554 20'iF 

4?54 2052 4543 4549 
5645 4420 
ODOO 



C860 3F44 

4300 3F1E 

CB60 3F72 

2406 

5310 8380 =0C42A4 

CB20 429B 

41F0 UFA 

C850 179A 

41F0 1222 

C650 4284 

41F0 1222 

0356 

41F0 1222 

OBOE 



494E 5354 5255 4354 

494F 4E20 494E 5445 

5252 5550 5445 4420 

4255 5420 4949 5020 

4249 5420 4E4F 542C 
5345 5420 
0^)00 

4949 5020 4249 5420 

4E4F 5420 5245 5345 

5420 494E 2043 5552 

5245 aE54 2050 5357 
0-)00 



5142 
5143 
5144 
5145 



5146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 
5154 
5155 
5156 
5157 
5158 
5159 
5160 
5161 
5162 
5163 
5164 
5155 
5166 
5167 
5168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 



5176 
5177 
5178 



5179 
5180 
5181 
5132 



BB 



LINT?JSG DC 



RET 



3STUEN TO CALL 



DC 



C'INTERRDPT EXPECTED BUT NOT HECEIVEO" 



X'ODOC 



************************************-*********ir*********************t* 



IIPSETNG 



IIPRSSNG 



TH 
ER 



IS HOUTINE PRINTS THE MESSAGES FOP, THE SETTING AND RESETTING * 
HORS DETECTED FOR THE IIP FIT IS THE PSH DUPING TEST 7. * 



*********************•**********+************************************* 



IIPSETNG LHI 
B 



IIPPES 
IIPNG 



KG LKI 
LIS 
L 

LHI 
BAL 
LHI 
BAL 
LHI 
BAL 
LR 
BAL 
BE 



?6,SET!{SG 

IIPNG 

P6,EESETHSG 

30,6 

E1,INSTADS 

R2,ASCIADR 

LINK,HEXASC 

R5,SBE?!SG 

LINK, PRINT 

R5,IHSTMSG 

LINK, PRINT 

R5,S6 

LINK, PRINT 

RET 



LOAD 2ND KSG ADR - SET IIP NG 

GO COMMON 

LOAD 2ND KSG ADR - RESET IIP NG 

LOAD NO OF DIGITS 

LOAD INSTBUCTION ADS 

LOAD CONVERTED DEST ADR 

CONVERT 

LOAD ERROR 

PRINT ERROR NO 

LOAD INST KSG AD'^ 

PRINT HSG 

COPY 2ND KSG ADR 

PRINT IIP MSG 

RETURN TO CALL 



SETHSG 



DC 



C'ISSTRUCTIOS INTERRUPTED BUT IIP HI" NOT SET' 



DC X'ODOO' 

* 

RESETMSG DC C'lIP BIT NOT RESET IN CURRENT PSvi' 



DC 



X'ODOO' 



CT'L'=1420 
C^LSIUSO 
CKL51440 
C'«L51450 



CI': 

CLS 
C^L5 
CWL5 
C»*L5 
CL? 
COL5 
CL? 
CL^ 
C''L5 
CIS 
CKL5 
C^L5 
CLS 
C^L5 

CMi"; 

CfLE 
C»L5 
C"«L5 
CLS 
C«'L5 
C^LS 

C^LS 

C>'L5 
C''L5 
CLS 
CVLS 
C^"^ 5 

■:»'L= 



1460 
1470 
1480 
1490 
1500 
T^IO 
1=^20 
1530 
1^40 
1550 
156 
1570 
1580 
1590 
1«00 
1«10 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
l-'OO 

i^m 

1''20 
1730 
1740 
1750 



* + **■***********■***■**********■**-*■** ***************** * ** ********,*-* *^**.** 



CWL51760 
C^L51''70 
0*15 1780 



C"L'^1''90 
CL^ISOO 
C''L51S10 
CM 1-5 182 
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SUi^OTTINES 











5183 










5184 










5185 










5136 










5187 










518S 










5139 










5190 










5191 










5192 




3D00 


3F94 




5193 


003F9K 


DOOO 


8360 


=0042FP 


5194 


003F98 


08C2 






5195 


003F9A 


C470 


OOOF 




5196 


003F9E 


CS70 


0030 




6197 


003FA2 


C570 


03 A 




5198 


003FA6 


2132 






5199 


003FA8 


26.77 






520O 


003FAf. 


D270 


8085 


=004033 


5201 


003FAE 


2406 






5202 


003FB0 


5810 


82F0 


=0042A4 


5203 


003FBi( 


C820 


429B 




520U 


003FB8 


41F0 


UFA 




5205 


003FBC 


C350 


179A 




5206 


003FCO 


41F0 


1222 




52C7 


003FCtt 


C850 


4284 




5208 


O03FC8 


itlFO 


1222 




5209 


003FCC 


C350 


4022 




5210 


0G3FDO 


4 1F0 


1222 




5211 


003FD4 


D100 


8320 


=0042F8 


5212 


003FI)8 


030E 






5213 
5214 
5215 
5216 
5217 
5213 




0000 


3FDA 




5219 


003FDA 


D3D0 


1749 




5220 
5221 




0000 


3FDE 




5222 


003FDE 


DOOO 


8316 


= 0012)^8 


5223 


003FE2 


CUDO 


OOOF 




5224 


003FE6 


C6D0 


0030 




5225 


003FEA 


C5D0 


00 3A 




5225 


003FEE 


2182 






5227 


003FF0 


25D7 






5228 


003FF2 


D2D0 


804E 


=004044 


5229 


003FF6 


2406 






5230 


003FFe 


5810 


62S8 


=0042A4 


5231 


003FFC 


ca20 


429B 




5232 


004000 


41F0 


UFA 




5233 


oottoon 


C350 


179A 




5234 


004008 


41F0 


1222 




5235 



CCNG - BCNG 



THESE T«C 
FOE ALL CC 
FORMAT FAU 



POUTINES PRIST 

ESEOES OR IK T 
LT ISTE5BUPTS. 



THE CONDITION CODE CE THE REASON CODE * 
HE CASE OF THE ??A3CS CODE ON DATA * 



**************************************+**♦***+***+******************* 



CCSG 



STCC 



ECODE 



ECNC 



ST8C 



EQO 


* 


STK 


B0,E3BSAVE 


LB 


512,5.2 


NKI 


R7,X*F* 


OKI 


S7,X'30' 


CLHI 


57,X'3A' 


BLS 


STCC 


AIS 


87,7 


STB 


H7,CCSSG+17 


LIS 


E0,5 


L 


?,1,INSTADE 


LHI 


H2,ASCIADR 


BAL 


LINK,HEXASC 


LHI 


S5,EEBMSG 


BAL 


LISK,PEIN'T 


LHI 


B5,INSTH3G 


BAL 


LIKK, PRINT 


LHI 


E5,CCHSG 


BAL 


LirK,?PINT 


LK 


B0,SEaSAVE 


BE 


FET 



EQU 


* 


LB 


R13, ECODE 


EQU 


* 


ETM 


S0,ERESAYE 


NHI 


B13,X'F* 


OHI 


R13,X'30* 


CLHI 


S13,X'3A' 


BLS 


STEC 


AIS 


ai3,7 


STB 


K13,RCMSG+14 


LIS 


SO, 6 


L 


R1,INSTADE 


LHI 


E2,AECIADH 


BAL 


LIHK,HEXASC 


LHI 


E5,EEE!!53 


BAL 


LINK, PRIST 



SAVE TEST 5FGS 

SAVE R2 

ISOLATE I? 

COSVERT TO ASCII 

CHECK IF LESS THAN *A" 

YES, SKIP 

ADJUST FOR 'A' TO 'F' 

STORE TO R3G 

LOAD NO OF DIGITS 

LOAD INSTRUCTION ADS 

LOAD CONVERTED DEST ADS 

CONVERT 

LOAD ERROR 

PRINT EEEGR NO 

LOAD INST ^SG ADR 

PRINT MSG 

LOAD CC ERROR HSG ADR 

PRINT CC ERROR 

RESTORE TEST REGS 

RETURN TO CALL 



LOAD FAULT REASON CODE 



SAVE TEST REGS 
ISOLATE REASON CODE 
CONVERT TO ASCII 
CHECK IF LESS THAN 'A' 
yES, SKIP 

ADJUST FOR 'A' TO "F" 
STORE TO aSG 
LOAD NO OF DIGITS 
LOAD IMSTBUCTIOH ADR 
LOAD CONVERTED DEST ADR 
CONVERT 
LOAD ERROR 
PRINT ERROR NO 



CWL=1S30 
^151840 
CML51S5C 
CLFI^fO 
CL51870 
C»fL513S0 
CML51390 
CL^^I^OO 
C^L51910 
CWL51920 
CWL51930 
CWL51940 
C»fL51950 
C?fL51960 
CKL51970 
C^L51980 
CML51990 
CfL52000 
C»fL52010 
CWL52020 
C»?L52030 
C'»L5204C 
C»'L52050 
CML52060 
CKL52070 
CWL52080 
C''L52090 
C'fL52100 
C"L52110 
CWL52120 
C'?L5?130 
C?'L52140 
C«fL52150 
CXL52160 
CWL52170 
C»L521B0 
C'?L52190 
C"L52200 
C''L52210 
CWL52220 
C«!L52230 
^152240 
C''L52250 
C«L52260 
C'«L52270 
CWL52280 
CML52290 
C»'L52300 
CML52310 
CKL52320 
C'«152330 
C!'L52340 
C*!L5 2350 
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00400C 
O0UO1O 
004011* 
004018 
OOltOIC 
O0U020 



004022 
004C2!i 
00U032 
004034 
004C36 
00403S 
00U046 



00404S 
00404C 
00404F 

004050 
004054 
004C58 
00405A 
00405C 
C04C50 
004C54 
004066 
004C6?. 
004C6S 
004072 
004076 
00 4 07 A 
004C7E 
0040fi2 
004086 
004C8A 
0040S? 



C850 4284 
41F0 1222 
C850 4036 
41F0 1222 
0100 32D6 
030E 



434F 4E44 
4S20 434F 
2020 
ODOO 

5245 4153 
4F44 4520 
ODOO 



=0042F8 



4954 494F 
4445 203D 



4F4F 2043 
3D20 2020 



0000 4048 
DOOO 82AC 
08C2 
2405 

C820 40DE 
41F0 11FS 
2406 
0814 

C820 4030 
41F0 UFA 
2406 

5810 323A 
C820 429? 
41F0 UFA 
CR50 179.S 
41F0 1222 
CB50 4284 
41F0 1222 
C8S0 4090 
41F0 1222 
D100 o25A 
30E 



=0042F8 



=0042A4 



5235 
5237 
5238 
5239 
5240 
5241 

5242 * 

5243 * 

5244 CCHSG 



5245 5CSSG 



)C42F8 



5246 
5247 
524S 
5249 
5250 
5251 
5252 
5253 
5254 
5255 
5256 
5257 
5258 
5259 
5260 
5261 
5262 
5263 
525 4 
5265 
5266 
5267 
5268 
5269 
5270 
5271 
5272 
5273 
5274 
5275 
5276 
5277 
5273 
5279 
5230 
5281 
5282 
5283 



LHI 


R5,INSTSSG 


BAL 


LINK, PRINT 


LHI 


55,ECMSG 


BAL 


LINK, PRINT 


LW 


R0,EPR5;AVE 


SB 


EET 
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LOAD INST FSG ADR 
PRINT KSG 

LOAD RC ERROR SSG ADR 
PRINT PC ERROR 
RESTORE TEST REGS 
RETURN TO CALL 



DC C* CONDITION CODS 



DC C REASON CODE 



*******************************1I 



',X'0D00' 



,X'0D00* 



************************************** 



ADRERR * 

t ir 

THIS ROUTINE PRINTS THE EXPECTED NEXT SOnSCE * 

' ADDRESS AND THE ACTUAL NEXT SOURCE ADDRESS THAT * 

IS RETURNED IN REGISTER 1 WHEN THE "^VO DO MOT * 

► COMPARE CORRECTLY. THIS IS PRINTED WHEN THE * 

CHECK FAILS IN HOVE OR KVTU TESTING. * 

t -* 



ADRERR ECU * 

STH R0,ERRSAVE 

LR E12,R2 

LIS HO, 6 

REG 1 CONTAINS ACTUAL 

LHI R2,ACTRDR+33 

BAL LIKX,HEXASC 

LIS R0,6 

LE SI, 54 

LHI R2,EXPADR+32 

3AI LIKK,HEXASC 

LIS R0,6 

L H1,INSTADR 

LHI E2,ASCIADR 

BAL LISK,HEXASC 

LHI P5,SSBKSG 

BAL LINK, PRINT 

LHI F,5,ISSTKSG 

BAL LINK, PRIST 

LHI ?5,AD8MSG 

BAL LINK, PRINT 

LK RC,ERRSAVE 

BR RET 



SAVE TEST REGS 
SAVE REG 2 
LOAD NO OF DIGI"^? 
SRC ADR RETURNED 

LOAD CONVERTED SRC ADR 

CONVERT 

LOAD NO 0? OIGI'^3 

LOAD EXP NEXT SRC ADR 

LOAD CONVERTED SRC ADR 

CONVERT 

LOAD NO OF DIGITS 

LOAD IHSTRUC'j'ION ADR 

LOAD CONVERTED D2ST ADR 

CONVERT 

LOAD SHRCH 

PRINT ERROR NO 

LOAD INST !«SQ AD? 

PRINT MSG 

LOAD ADRERR ySG ADR 

PRINT OFFSET ERROR MSG 

RESTORE TEST RE?" 

RETURN TT CA:I 



CML52360 
CML52370 
CnL52380 
C'»L'=?390 
CML52400 
C'«L52410 
C>'L52420 
C'1L5243Q 
C'<L52440 



CWL52450 



CyL52460 
C''L52470 
C'"L52480 
C''L = 2490 
CWL52500 
C«L52510 
C''L52520 
CML52'^30 
C''L52540 
C"L52550 
CrL52560 
C'<L?2570 
C'«LE2580 
CML52590 
r''L52600 
C'»L52610 
CML52620 
C«L52630 
C'«L'^2640 
C?'L5?650 
C''L52660 
C»'L52670 
C'^L52680 
C''L52690 
C''L52700 
CWL527in 
C*L52720 
C^L'=^2730 
C''LS2740 
CML5275C 
C''L52-'60 
C"L'^2770 
C''L'^2780 
C"L52790 
C"L52800 
C^'L52810 
CML52820 
CML52«?30 
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sj3soutin::s 













5284 


* 












5285 


* 




0000 


4090 






5286 


ADHSSG 


004C9G 


1558 


5015 


1351 


1514 


5287 


EXPADS 


001098 


201E 


1558 


5120 


535 2 






0010AC 


1320 


1111 


4152 


1553 






0010A6 


5320 


5711 


5320 


2020 






ooaoEO 


5858 


5S58 


5858 








0010E6 


8D0A 








5288 




0010BB 


1113 


5455 


114C 


201E 


5289 


ACTADR 


0040C0 


1558 


5120 


5352 


4320 






0040C8 


1114 


4152 


1553 


5320 






OOIODO 


5245 


5155 


521E 


1511 






00140D8 


2019 


5320 


2020 








OOKODE 


5959 


5959 


5959 








0040S4 


ODOO 








5290 





EQU 

DC 



C 'EXPECTED NEXT SEC ADDRESS -.'AS •,C'XXXXXX' 



0040E4 


ODOO 




5290 
5291 
5292 
5293 
5291 
5295 
5296 
5297 
5298 
5299 
5300 
5301 
5302 
5303 
5301 
5305 
5306 




0000 


10E6 


5307 


0010E6 


DOOO 


820E =0012F8 


5308 


0010EA 


08C2 




5309 


0040EC 


2102 




5310 
5311 


0010EE 


C820 


4161 


5312 


0010F2 


11'PO 


UFA 


5313 


0040F6 


2402 




5311 


0040F8 


0813 




5315 


0010FA 


C320 


1111 


5316 


0010FE 


41E0 


UFA 


5317 


001102 


2106 




5318 


001104 


5810 


819C =001?A1 


5319 


001108 


C820 


129B 


5320 


00410C 


41F0 


UFA 


5321 


004110 


C850 


179A 


5322 


004114 


41F0 


1222 


5323 


004118 


C950 


1284 


5324 


004 11 C 


41F0 


1222 


5325 


001120 


C850 


112E 


5326 


001121 


11F0 


1222 


5327 



DC X'SDOA* CELF 

DC C -ACTUAL NEXT SRC ADDRESS SETUSHED IS •,C'yYYYYY' 



DC X'CDOC 
************************************************************* 



******** 



OFFEEF 



* THIS ROUTINE PRINTS THE EXPECTED OFFSET AND THE ACTUAL 

* OFFSET RETUBNED IN REGISTER 1 ON CPSK, CPAHP TESTING, 

* WHEN THE TWO DO NOT COHPAEE CORRECTLY. 



******************************************** 



r************************ 



OFFERR 



EQU 


* 


STK 


EO,ERRSAVE 


IE 


R12,H2 


LIS 


R0,2 


REG 1 


CONTAINS ACTUAL 


LHI 


R2,ACT0FF+28 


BAL 


LINK,HEXASC 


LIS 


R0,2 


LR 


El, 83 


LHI 


S2,EXP0FF+22 


BAL 


LINK,HEXASC 


LIS 


E0,6 


L 


BI.INSTADR 


LHI 


E2,ftSCIADR 


BAL 


LINK,HEXASC 


LHI 


RE,EEE!ISG 


BAL 


LINK, PRINT 


LHI 


S5,INSTHSG 


BAL 


LINK, PRINT 


LHI 


?5,0FF«SG 


BAL 


LINK, PRINT 



SAVE TEST HEGS 
SAVE REG 2 
LOAD NO OF DIGITS 
OFFSET EETUESED 

LOAD CONVERTED OFFSET 

CONVERT 

LOAD NO OF DIGITS 

LOAD OFFSET EXPECTED 

LOAD CONVERTED OFFSET 

CONVERT 

LOAD NO OF DIGITS 

LOAD INSTRUCTION ADR 

LOAD CONVERTED DEST AD5 

CONVERT 

LORD ERROR 

PRINT ERROR NO 

LOAD INST KSG ADR 

PRINT SSG 

LOAD OFFSET «SG ADS 

PRINT OFFSET ERROR HSG 



C"L52?40 
C«L'^2»50 
C'<L52'!60 
C'*L57S70 



CLSJSSO 
CI»I52890 



CWL52900 

C'TL52910 

C«L52920 

C«L52930 

C!'L52910 

C?«L52950 

C''L'=2960 

C'?152970 

C''L52980 

CML52990 

C?fL53000 

C»L53010 

CLSSOSO 

C«L53030 

CML53010 

C"L53050 

CLBSOeO 

C''L53070 

CfL=3080 

C!'L53090 

C!'L53100 

C!'L53110 

C''L53120 

CLSSISO 

CML53110 

CWL53150 

CML53160 

C''L53170 

C'LSSISO 

C'<L53190 

CWL53200 

CWL53210 

C«L53220 

C«L53230 

C'^153240 

C^L53250 

C''L53260 

C>'L53270 
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SUBROUTINES 

nnl?or °nl°.l ^"^"^ =00m?B 5328 LM SO.ESKSATF ESSTOSE TEST REGS rML532S0 

00412C 030E 5329 BR SET RETURN TC CALl CML532S0 

"33° * C'<LS3300 

^331 * CML=.3310 

C*L'=3320 



0000 I112E 5332 0FF3SG EO'.I 



00li12E 4553 5045 4354 4544 5333 SXPOF? DC C'EXPECTED OFFSET V'AS '.C-XX' C''L'=3330 

004136 204F 4646 5345 5420 i-.J^JJ 
00413E 5741 5320 2020 
004144 5853 

004146 SDOA 5334 DC X'SDOA' CRLF C''L53^4" 

004148 4143 5455 414C 204F 5335 ACTOFF DC C'ACTUAL OFFSET RETURNED IS ".C'VY* C»L'^335r 

004150 4645 5345 5420 524'; " i- 33- 
004158 5455 524E 4544 204? 
004160 5320 2020 
004164 5959 

004166 ODOO 5336 DC X'ODOO" ^153360 

^^S? * C«L53370 

5338 * CLSSSSO 

5339 ****************************************»***»***.****«**»««*******,** C"'L'^3390 
^^^O * * C1L5340C 

5341 * RESTORE - EEST3 * C''15341C 

5342 * * C«'L5342C 

5343 * THIS ROUTINE CLEARS THE CONTENTS OF AREA 0PN1 AND COPIES * C''L5'430 

5344 * THE CONTENTS OF THE FASTER BYTE TABLE TO THE AREA 0PN2 FOE * ^153440 
5343 * USE AS A SOURCE. REST3 STORES THE LINK ADDRESS TO SAVE THE * C^L534C0 

5346 * ACTUAL ADDRESS OF THE INSTRUCTION UNDER TEST. THIS ADDRESS * C''L53460 

5347 * IS EITHER USED IN AN ERROR PRINTOUT OR IS COMPARED TO THE * C''L5^470 

5348 * INTERRUPT LOCATION IN THE IIP TEST (3) TO DETERMINE IF THE ♦ C>fL5348n 

5349 ♦ INSTRUCTION IS INDEED BEING INTERRUPTED. * CML53450 

5350 * ♦ 

5351 ********************************************************************* 

5352 * C?L53';20 

5353 * C»fL53530 
0000 4168 5354 RESTORE SOU * TO SET UP tOPN1] AND [0^N2] ''"L'=' = 4C 

004168 24^0 5355 LIS P8,0 LOAD 7EE0 C'eL53550 

00416A 2490 5356 LIS B9,0 CLEAR INDEX ^153=60 

00416C D2B9 3634 5357 RSST1 STB R8,0PN1(59) CLEAR [CPNI] DEST AR^A r''L==3570 

004170 2691 5358 AIS E9,1 ISCREKENT rML^3^80 

004172 C590 0100 5359 CLHI R9,256 DONE ? '^SLSSSSO 

004176 42S0 FFF2 =00416C 5360 SL REST1 NO, LOOP C«L'^3600 

O^'il^A 2"90 _ 5361 LIS H9,0 CLEAR INDEX CL^^^IO 

CfL53620 



C''L53500 
C!?L53510 



00417C D389 3784 5362 RE3T2 IE R8 , KASTERC R9 ) LOAD FASTER EYTE , :^^..,^.^ 

??!*-?? B?'' ^^^^ ??^3 ST3 R8,0PN2(P9) COPY JIASTHR TC 0PN2 SRC C''L5363i^ 

C''l53640 
CyL53F5n 
C''L536i?r 



004184 2591 5364 AIS 89,1 INCREHFNT 

004136 :S90 0100 5365 CLHI 39,256 DONE ? 

00418A 4230 F^EE =004170 5366 SL REST2 NO, LOOP 

00418E 50FQ 8112 =0042A4 5367 REST3 ST LINK,INSTADR STORE LINK ADR POINTS TO INST 0*153670 

5368 * SEXT TESTED ' C'?L516R0 

004192 030F 5369 BR LINK RETURN TC CALL C"'LE3f90 

5370 * CML53700 

5371 * C'*1537 1 

5372 *********♦»♦••*»****************♦*♦**********«»*******«***♦♦»**»,»♦** C''L^372^' 

5373 * * C'fL*'3730 
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SUSROUTISES 



00419t 
004196 
00419A 
004190 

0041fi0 
0041A2 
0041A6 
0041A3 
0041AA 
0041 AC 
0041B0 
0041B6 
0041BC 
0041BE 
0041C2 
0041C6 
0041CA 

0041CE 
0041D0 



0041D4 
0041D6 
D041D8 
OO410E 
0041E2 
0041E4 
0041E6 
0041EA 
0041EE 
0041F2 
0041F6 

0041PA 
0041FC 



0000 4194 

2470 

C8A0 3738 

0826 

4300 8006 =0041A6 

0000 41A0 

2470 

C8A0 3333 

0572 

033F 

0573 

4220 3024 =0041C4 

0384 4700 0000 

0395 4700 0000 

0589 

4330 800C =0041CE 

40A0 17A2 

40A0 175A 

41S0 8032 =004200 



2671 
4300 FFD2 



=0041A6 



0000 41D4 

0572 

033F 

D384 4700 0000 

C580 0020 

233C 

0530 

4330 8010 =0041FA 

C8A0 3334 

40A0 17A2 

40 AO 175A 

4 ISO 3S22 

2671 

4300 FFD4 =004104 



5374 
5375 
5376 
5377 
5378 
5379 
5380 
5381 
5382 
5383 
5384 
5385 
5386 
5387 
5388 
5389 
5390 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5401 
5402 
5403 
5404 
5405 
5406 
5407 
5408 
5409 
5410 
5411 
5412 
5413 
5414 
5415 
5416 
5417 
5418 
5419 
5420 
5421 
5422 
5423 
5424 
5425 
5426 



KVCHK 



SVTDCKK 



THIS ROUTINE IS USED TO CHECK THE RESULT OF THE WOVE - MYTH 
mSTSUCTION. THE DATA FEOH THE DESTINATIOM AREA IS COSPAHFD 
TO THE ORIGINAL DATA IN THE SOURCE AREA- IN ADDITION, THE 
PAD CHARACTER IS CHECKED IF REQUIRED. DATA ERRORS ARE PRINTED 
BY SVEER AND PAD ERRORS BY PADESH.IF TRANSLATED, THE DESTINATION 
IS CHECKED AGAINST THE TRANSLATION TABLE ENTRIES. 



******************************! 



******* 



*********************** 



******** 



HVTUCHK 



HVCHK 



KVCKI 



KVCK2 



PDCHK 



EQU 

LIS 

LHI 

LE 

B 

EQU 

LIS 

LHI 

CLE 

BEE 

CLE 

BP 

LB 

LB 

CLB 

BE 

STH 

STH 

BAL 

AIS 



R7,0 

R10,C'78' 

E2,R6 

MVCK1 

* 

R7,0 

R10,C'33' 

R7,R2 

LINK 

R7,R3 

PDCHK 

S8,0(R4,E7) 

R9,0(R5,R7) 

88, R9 

KVCK2 

S10,ERSN0 

E10,N0ERE 

RET,KVERR 

E7,1 
MVCK1 



PDCK1 



EQU 


■k 


CLE 


R7,S2 


BEE 


LINK 


LB 


R8,0(E4,R7) 


CLHI 


R8,X'20' 


BES 


PDCK1 


CLE 


R8,E0 


BE 


PDCX1 


LHI 


S10,C'34' 


STH 


E10,EREN0 


STH 


EICNOEER 


BAL 


RET,?ADEBE 


AIS 


E7,1 


B 


PDCHK 



ZERO INDEX 

LOAD ERROR SO FOR MVTU 

LOAD DEST LEN INTO R2 



ZERO INDEX 

LOAD ERROR NO FOR »OVE 

IS DESTINATION STRING EXHAUSTED ? 

BETUEK TO CALL 

IS SOURCE STRING EXHAUSTED ? 

YES, GO SEE IF PAD REQ'D TO BE CHECKED 

LOAD DEST BYTE 

LOAD MASTER BYTE 

COMPARE BYTES 

NOT EQUAL, DATA EEROE 

STORE 

SET ERR FLAG 

DATA ERROR 33 OR 78 ON HOVE - MVTU 

ISCREHEKT INDEX 
LOOP TIL ALL CHECKED 



COMPARE INDEX TO DEST LENGTH 

DONE, EETUEN 

LOAD DEST BYTE (PAD CHAR) 

CHECK IF DEFAULT PAD CHAR 

PAD OK CONTINUE 

CHECK IF PAD CHAE = REGO (24-31) 

IF NOT DEFAULT OR REGO, ERROR 

LOAD FRROS NO 

STOSE 

SET ERR FLAG 

ERROR 34 INCORRECT PAD ON MOVE/MOVEP 

INCHEHENT TO CHECK ALL PAD CHARS 
GO AGAIN NEXT PAD 



C*L53740 
C''L53750 
CWL53750 
C1LE3770 
C^L53780 
C>'L53790 
CWL5?800 
C''L53810 
C'?L53820 
C?fL5?B30 
^153840 
C»L53850 
CWL53e60 
C»'L'=3870 
C'!L53S80 
C>'L53890 
CHL53900 
CFLSSgiO 
CWL53920 

ciLssgso 

Ci<L53940 
CWL53950 
C"L53960 
CfL53970 
C'«L53980 
C»'L53990 
C'?L54000 
CJ'L54010 
CrL54020 
C??L54030 
C«!L5404C 
C»L54050 
C''L54060 
C'fL54070 
CHL54080 
C''L54090 
C''L54100 
C»L';4110 
CWL'^4120 
C1»L54130 
C''L54140 
C''L54150 
^154160 
C'!L54170 
C''L54180 
CKL5419D 
C'?L54200 
C'?L54210 
CEL54220 
C!fL54230 
C»^L54240 
CSL54250 
CSL54260 
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001^200 
O0t2OU 
0OU2Oe 
004208 
00U20C 
004210 
004212 
004214 
004218 
00421C 
00421E 
004220 
004224 
004228 
00422A 
00422E 
004232 
004236 
00423A 
00423E 
004242 
C04246 
0C424A 
C0U24E 
004252 



004254 
00425C 
004260 

004262 
00426A 
004272 
00427A 
004282 



0000 4200 
DOOO 30F4 
2402 
Ob17 

C820 425D 
41F0 UFA 
2402 
0819 

CS20 427F 
41F0 UFA 
2402 
0813 

C820 426B 
'41F0 UFA 
2406 

5810 3076 
C820 429B 
41F0 UFA 
C350 179A 
41F0 1222 
CBSO 4284 
41F0 1222 
C350 4254 
41'^0 1222 
D100 80A6 
030E 



=0C42F8 



=0042A4 



= 0042F8 



4259 5445 2Q4F 4^2^- 

2059 5920 

8D0A 

0000 425D 

534F 5552 4345 203r 

2041 4120 2020 2044 

4553 5449 4E41 5449 

4F4E 203D 2042 4220 

onoo 

0000 426B 

0000 427F 



5427 
542S 
5429 
5430 
5431 
5432 
5433 
5434 
5435 
5436 
5437 
5438 
5439 
5440 
5441 
5442 
5443 
5444 
5445 
5446 
5447 
5446 
5449 
5450 
5451 
5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 
5462 
5463 
5464 
5465 
5456 
5467 
5468 



5469 
5470 



********************************************************************* 

* * 

* SYERS * 

* * 

* THIS ROUTINE PRINTS THE ADDRESS OF THE INSTRUCTION TESTED AND * 

* THE SOURCE AND DESTINATION DIGITS IF THE WOVE - KVTU INSTE'T- * 

* TION RESULTS ARE INCORRECT. * 

* * 



MVSRH 



avssG 



MYN-JH 
?!V''SG2 



EQU 


* 






STH 


aO,ERRSAVE 


SAVE TEST REGS 




LIS 


R0,2 


LOAD NO OF DIGITS 




LR 


R1,R7 


LOAD BYTE SU><BEH 




LHI 


E2,KYNUf 


LOAD CONVERTED DEST 


SDF 


BAL 


LINK,KEXASC 


CONVERT 




LIS 


5 0,2 


LOAD SO OF DIGITS 




LR 


E1,Rg 


LOAD DEST BYTE 




LHI 


E2,aVDE3T 


LOAD CONVERTED DEST 


ADR 


BAL 


LINK,KEXASC 


CONVERT 




LIS 


ao,2 


LOAD NO OF DIGITS 




LR 


Ri,Ra 


LOAD SRC BYTE 




LHI 


R2,MVSRC 


LOAD CONVERTED DEST 


ADR 


BAL 


LINK,HEXASC 


CONVERT 




LIS 


S0,fi 


LOAD NO OF DIGITS 




L 


R1,IHSTADR 


LOAD INSTRUCTION ADS 


LHI 


H2,ASCIADB 


LOAD CONVERTFD DEST 


ADR 


BAL 


LIKK,HEXASC 


CONVERT 




LHI 


R5,ERRSSG 


LOAD ERROR 




BAL 


LINK, PRINT 


PRINT ERROR NO 




LHI 


R5,ISST'»SG 


LOAD ISST JISG ADR 




BAL 


LINK, PRINT 


PRINT HSG 




LHI 


E5,MVMSG 


LOAD HOVE DATA COSP 


FAIL «SG 


BAL 


LINK, PRINT 


PRINT HOVE ERROR 




LK 


RO,EHRSAVE 


RESTORE TEST REGS 




3R 


RET 


RETURN TO CALL 





DC 



SQU 
DC 



C'BYTE SO. YY',X'8D0A* 



MVHSG+9 

C SOURCE = AA 



DESTINATION 



BB* 



'ODOO* 



5471 MVSaC 

5472 IVDSST 
547? » 



ECU MV!'SG2 + 9 
EQU aVHSG2+25 



C?fL542''0 
CfL54280 
C'!L54290 
CML54300 
C''L54310 
C''L54320 
CWL54330 
C'fL54340 
C!'L54350 
CWL54360 
CWL54370 
C'«L?4380 
C''L54390 
CWL54400 
C'»L54410 
CWL54420 
Ci!L54430 
C'?L54440 
C--fL'i4450 
01^154460 
CML544-'0 
C''t544a0 
C''L54490 
C''I54500 
Ci»L54S10 
CI»L54520 
C'1L54?30 
C?!L54540 
€'•154550 
CrL54560 
CWL54570 
C»'L54580 
CWL54590 
C''L54'=00 
CyL54610 
CWL54620 
€"^54630 
CfL54640 
CWL54650 
C'fL54660 
CWL5467n 
CfL5468n 



r''L54690 
C''L54700 



C??L54710 
C^L547?0 
CML5473C 



SERIES 3200 COKKESCIAl INSTSUCTIOH S 
SUBROUTINES 



ET TEST Ofi-23'1 ROD 



??.GE: 123 09:37:08 06/08/31 



00428'* 
O0U28C 
004294 
0C429C 
0042A2 



0042A4 
0042A8 



0042AA 
0042AC 



5474 * 

5475 * 

5476 * 

494E 5354 5255 4354 5477 IHSTMSG 

494F 4F20 4154 2041 

4444 5245 5353 2058 

5858 5858 5820 

0000 

0000 429E 

0000 0000 

0000 



0000 
0000 
0000 42AD 



DC 



C'lNSTBUCTION AT ABDSSSS XXXXXX' ,X ■ ODOO ' 



5478 


ASCIADR 


EQU 


ISSTMSG+23 


5479 


* 






5480 


IN3TADE 


DCY 


i 


5481 


* 






5482 


LISKSAV 


OCX 


] 


5483 


* 






5484 


* 






5485 


* — — 






5486 


* 






54S7 


DDSAVE 


DCX 





5488 


DUSAVE1 


DCX 





5489 


LNZB 


EQO 


*-1 


5490 


* — — - 







ADa OF NEXT ISSTBUCTIOS TO TESI 
LINK ADF SAVE AREA 



C*L54740 
CWL54750 
CML54760 
C!!L54770 



C'?L54780 
C«L54790 
C"iL54800 
0*154810 
CHL54fi20 
CML54830 
€"154840 
C?!1E4850 
CfL54860 
CML54870 
C'«15U880 
C''154890 
^154900 
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00lt2AE 
00it2Bl* 
0042B6 
0042B8 
0042B8 
0042F8 
001*338 
0041*38 
004473 
004480 



5492 


* EXEC 


£ TEST 


PEOGSAH 


5493 


* 






5494 


* 






5 495 


**CHKSU!5 






5495 


* START 


OF CHKSUK FILE 


5497 


* 






5498 


* 






5499 


* 






5500 


0PT3UF 


DS 


6 


5501 


lOSAVE 


DS 


2 


5502 


TEMP 


DS 


2 


5503 




ALIGN 


8 


5504 


IsTSAT 


DS 


64 


550S 


EBRSAVE 


DS 


64 


5506 




DS 


256 


5507 




DS 


64 


5508 


PStfSAVEA 


DS 


8 


5509 


RSAVEA 


DS 


128 



OPTION INPUT BUFFER 

TEMPOBAEY STORAGE LOC 

REGISTERS ON EXT/IHH ISTERBUPT 
KEG STORAGE FOE ERROR HOUTINFS 
REG SETS 4-F, 8/32 WITH 8 SETS 
DOUBLE PBECISION FP SEG SAVE AREA 
PPF FSW SAVE AREA 
REGISTER SAVE AREA 



0X15 
C''L5 
€"15 
CLB 
CL? 
C>!L5 
CfL5 
CLS 
CWL5 
CLS 
C''L5 
C''L5 
CfL5 
CLS 
C''L5 
C"L5 
CfLS 
CIS 



4920 
4930 
4940 
4050 
4960 
4970 
4980 
4990 
5000 
5010 
■=■020 
5030 
5040 
5050 
5060 
5070 
5080 
'=^090 
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:HKSUM/M17 PUSCHEF, 











5511 




NOSQZ 




OOKBOO 


2400 






5512 


SCHKSaS 


LIS 


E0,0 


004502 


9510 






5513 
5514 


* 


2PS3 


R1,R0 


004504 


E510 


OAOO 




5515 




LDAI 


E1,0BIGIN1 


00450S 


2421 






5516 




LIS 


R2,1 


00450A 


S630 


fD9F 


=0042AD 


5517 




LDAI 


E3,LNZB 


00450E 


2440 






5513 




LIS 


R4,0 


004510 


0351 


0000 




5519 


$GEH 


LB 


R5,0(R1) 


004514 


0745 






5520 




XAH 


S4,R5 


004516 


C110 


FFF6 


=004510 


5521 




3XLE 


E1,$GEN 


00451A 


D240 


0099 




5522 
5523 


* 


STB 


S4,MN+3 


00451E 


caio 


0030 




5524 


STAPE 


LHI 


S1,X"0080' 


004522 


9E21 






5525 




OCE 


E2,E1 


004524 


9444 






5526 




SXBR 


E4,R4 


004526 


9324 






5527 




HHB 


R2,S4 


004528 


9411 






5528 




EX3S 


El, El 


00452A 


9501 






5529 

5530 
5531 


* 
* 


EPSR 


S0,R1 
























5532 


* 






00452C 


D350 


007A 




5533 


SPUNCH 


LB 


a6,X*7A' 


004530 


DE60 


007B 




5534 




OC 


R6,X'7B' 


004534 


9D60 






5535 




SSF. 


R6,F0 


004536 


2081 






5536 




BTBS 


8,1 


004538 


41F0 


803E 


= 00457?. 


5537 




BAl 


R15,STAPL 


00453C 


9411 






5538 




EXBB 


R1,R1 


00453E 


CS30 


OOCF 




5539 




LHI 


R3,X'CF' 


004542 


DA61 


0000 




5540 


SPNCHI 


WD 


E6,0(R1) 


004546 


9060 






5541 




SS!3 


E6,S0 


004548 


2081 






5542 




BTBS 


8,1 


00454A 


Clio 


FFF4 


=004542 


5543 




BXLE 


R1,SPNCH1 


00454E 


41F0 


802F 


=004580 


5544 
5545 


* 


BAL 


E15,$TAPL1 


004552 


D340 


0099 




5546 




LB 


R4,MN+3 


004556 


E610 


OAOO 




5547 




LDAI 


E1,0RIGIN1 


00455A 


^•630 


FD4F 


=0042AD 


5548 




LDAI 


R3,LSZB 


00455E 


D351 


0000 




5549 


SPNCH2 


LB 


R5,0(S1) 


004562 


0745 






5550 




XAE 


B4,R5 


004564 


9A65 






5551 




WDB 


E6,R5 


004566 


9401 






5552 




EXBH 


E0,E1 


004568 


9820 






5553 




WHS 


R2,E0 


00456A 


9D50 






5554 




SS3 


E6,R0 


00456C 


2081 






5555 




BTBS 


8,1 


00456E 


Clio 


FFEC 


=00455E 


5556 




BXLE 


E1,SPKCH2 


004572 


41F0 


8004 


=00457A 


5557 




BAL 


E15,STAPL 


004576 


4300 


FFA4 


=00451E 


5558 




3 


STAPE 



PUSCH M17 TAPE WITH CHECKSIJH 
SELECT ESG. SET 

START 
INCREMENT 
FINAL 
CHECKS'J* BYTE 



CHECKSUM BYTE TO BOOT LOADER 

DISPLAY : HOESAL KODE 

CHECKSUS BYTE TO D1 
HALT PEOCESSOE. 



GET BOUTDV (PUSCH) ADDRESS. 
START TAPE PUNCH 



PUNCH LEADEE 

(R1) = x'ooeo' 



PUNCH BOOT LOADER 



PUNCH ONE-FOLD GAP. 

GET CHECKSUR BYTE 
(NORMALLY X'AOO* ) 

PUNCH PF.OGPAK 



DATA ADDRESS TO DISPLAY, 



PUNCH TRAILER. 

DISPLAY CHECKSUS, HALT PROCESSOR. 



C*I55110 

C'«L55120 

CyL55130 

C?!L55140 

CLB-^ISO 

CWL55160 

CrL55170 

CKL55180 

CKL55190 

C»L55200 

CKL55210 

C''L55220 

CWL55230 

^155240 

C''L552'=;0 

CKL55260 

CfL55270 

CKL55280 

C>'L55290 

CLSSSOO 

CfL55310 

C''L'=5320 

CML55330 

CML55340 

CLSSSSO 

C«L55360 

C''L55370 

C''L553S0 

C''L55390 

CML55400 

C''L55410 

CWL55420 

C'^L5=;430 

C''L55440 

C*L55450 

C*L55U60 

CWL55470 

C''L55480 

C'<L55490 

C'!L55500 

C>'L55510 

^155520 

CLSS^SO 

C>!L55540 

CML55550 

CWL55560 

CfL5S570 

CML55580 
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00457A 


CSOO 


0100 


00a57E 


2303 




00U580 


CSOO 


0080 


004584 


2701 




OCi+586 


032F 




O0U588 


2430 




00i*58A 


9A63 




00458C 


9D68 




0045SE 


2061 




004590 


2206 




004592 







5560 
5561 
5562 
5563 
5564 
5565 
5566 
5567 
5568 
5569 
5570 
5 571 
5572 
5573 
5574 
5575 
5576 



CHXS'JH/m? PUNCHER (CONTIHf'ED) 



STAPL 



STAPL1 



$TAPLP 



LHI 
BS 



LHI 



R0,256 
$TAPLP 

50,128 



SIS 


E0,1 


BNPE 


P15 


LIS 


53,0 


WDE 


E6,R3 


SSB 


R6,E8 


BTBS 


8,1 


BS 


STAPLP 



TO PDSCH BLANK LEADEP 



TO PUNCH l-FOLD GAP+ 



EFTUP.N 



PUHCH BLANK FRAME 



CONTINTJE. 



END 



C»*L55fiQ0 
CLSS-ilO 
^155620 
C"L55630 
C''L55640 
CLSS^SO 
C''L55660 
C''L55fi70 
CWL55680 
CrL5'=;690 
C''L55700 
CWL55710 
C»!L55720 
CWL55730 
CWL55740 
C^L55750 
C"'L5?760 



SERIES 3200 COHMEECISL ISSTBOCTIOS SET TEST 06-238 800 PkQt 127 09:37:08 06/08/81 
ASSEMBLED BY CAL 03-066H08-CO <32-BIT) 
STABT OPTION'S: T=32 , CROSS ,EFIST, 



NO CAL ERBOBS 
19 CAi WASNTNGS 
6 OASSES 

TABLE SPACE USED : 



PPEVIGUS WARNING ON PAGE 75 



SCHKSUS 


0000 


4500 


SCLOCK 


0000 


0001 


SDECASC 


0000 


0000 


SDECHSX 


0000 


0000 


$DECTAB 


0000 


0000 


SDISPLAY 


0000 


0000 


$GE}! 


0000 


4510 


SKBINT 


0000 


0000 


SNOIL 


0000 


176C 


$PBCH1 


0000 


45 4 2 


SPNCH2 


0000 


455E 


SPUNCH 


0000 


452C 


$E5BIN 


0000 


0000 


STAPE 


0000 


451E 


STAPL 


0000 


457A 


STAPH 


0000 


4580 


STAPLP 


0000 


4584 


STISESI 


0000 


11BC 


$TI«XT 


0000 


11D0 


STST3U2 


0000 


1488 


ABOET 


0000 


0F22 


AB0ET2 


0000 


0F66 


ABSTOP 


0000 


4592 


ACTAD?. 


0000 


4038 


ACTOFF 


0000 


4148 


ACTSGN 


0000 


309C 


ADC 


0000 


0004 


ADR 


0000 


0D98 


ADSESS 


0000 


4048 


ADBKS3 


0000 


4090 


AF 


0000 


163C 


AMSG 


0000 


181A 


ASCIADR 


0000 


429B 


ASCIDSV 


0000 


17C4 


ASCXDEV2 


0000 


17D4 


ASCILQC 


0000 


17EA 


ASCIPSW 


0000 


17DE 


ASCISTA 


0000 


17CC 


ASCIWD1 


0000 


3562 


ASCIHD2 


0000 


3536 


ASCLPS1 


0000 


34EA 


ASCLPS2 


0000 


34F4 


BIGUS 


0000 


3370 


BOOT 


0000 


0088 



21K 



55 1 2* 
38* 
36* 
35* 
34* 
39* 

5519* 
37* 

1697* 

5540* 

5549* 

5533* 
33* 

5524* 

5537 

5544 

5564 
911* 
918* 

1252 
640* 
653 

5266 
5312 
4988 
98 
462* 
2404 
5280 
1320 
276 
4674 
5478* 
823 
803 
844 
861 
813 
4569* 
4565* 
4550* 
4552* 
3960 
64 



905 
1003 

474 
1704 

643 
5521 
1276 

5543 
5556 

960 
5558 
5557 
5566* 
556B* 

916 
1504 
1254* 

665* 

5289* 

5335* 

5006* 

192 

2444 

5286* 

1557* 

1732* 

4742 

1719* 
1723* 

867 
1725* 

827 
4724 
4734 
4658 
4662 
4467* 
67* 



920 



670 



1357 



937 



710 



1371 



1497 



1681 



5553* 



5574 
1502 



1324 1436 1450 1464 1485 1539 1653 1559 1584 1770 
2482 2541 2579 3347 3389 3431 3470 3511 3553 5261* 



499 



2 5035 5063 5103 5133 5164 5204 5232 5274 5320 5455 



1727* 
1721* 
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BBK.SAV 0000 1774 1185 1224 1228 1700* 

BRKFLG 0000 1754 265 535 1076 1186 1220 1231 1685* 

BEKKSG 0000 181C 267 1733* 

3RKVECT 0000 1752 1217 1226 1684* 

BTESTHO 0000 1766 578 596 613 634 677 1694* 

C300ADa 0000 OAIE 113* 

CAR2ND 0000 0A42 14S* 

CARRD 0000 0A40 148* 

CARRQ2S 0000 0A4C 158* 

CC>!SG 0000 4022 5201 5210 5244* 

CCNG 0000 3F94 2034 2054 2074 2095 2190 2218 2259 2279 2299 2321 2349 2393 2433 

2471 2508 2530 2568 2621 2645 2670 2694 2753 2783 2845 2894 2918 

2945 2971 2991 3009 3042 3068 3113 3135 3160 3186 3206 3225 3258 

3283 3336 3373 3418 3460 3501 3540 5193* 

3635* 

3814* 

3815 3822* 

3822 3829* 

3874* 

3875 3882* 

3882 3889* 

3936* 

3937 3944* 

3944 3951* 

3997* 

3635 3643* 

3998 4005* 

4C05 4012* 

3643 3650* 

3695* 

3696 3703* 

3703 3710* 

3754* 

3755 3762* 

3762 3769* 
145* 
114* 
144* 

2171* 

2173* 2197 

2186 2191* 

2194 2199* 

2201* 2225 

2214 2219* 

2222 2227* 

2030 2035* 

2050 2055* 

2070 2075* 

2091 2096* 

2103 2121* 

2126 2131* 

2119 2133* 

2138 2156* 

2151 2155* 

2154 2168* 



CHKSST1 


0000 


2954 


CHKSET10 


0000 


2B4C 


CHKSETII 


0000 


2368 


CHKSST12 


0000 


2580 


CHKSET13 


0000 


23F0 


CHKSET14 


0000 


2C0C 


CHKS2T15 


0000 


2C24 


CHKSET16 


0000 


2CA4 


CHKSET17 


0000 


2CC0 


CHKSST18 


0000 


2CD8 


CHKSEri9 


0000 


2D50 


CHKSET2 


0000 


2970 


CHKSET20 


0000 


2D6C 


CHKSET21 


0000 


2D84 


CHKSST3 


0000 


2938 


CKKSET4 


0000 


29F8 


CKKSET5 


0000 


2A14 


CHKSET6 


0000 


2A2C 


CHKSET7 


0000 


2AA0 


CHXSET8 


0000 


2ABC 


CHKSET9 


0000 


2AD4 


CLIF2ND 


0000 


0A3A 


CLIFADR 


0000 


0A16 


CLIFRD 


0000 


0A3e 


CNVRT10 


0000 


1ABC 


CNVRT11 


0000 


1AC0 


CNV8T12 


0000 


1AF2 


CNVET13 


0000 


1B0F 


C'JVRT14 


0000 


1F12 


CirVRTIS 


0000 


13ii4 


CNVRT16 


0000 


1360 


CNVET? 


0000 


1952 


CSVRT3 


0000 


1983 


CN-VRT4 


0000 


19CQ 


CKVET5 


0000 


19F8 


CNVRT6 


oooc 


1A2E 


CNVET7 


0000 


1A54 


CNVRT7.1 


0000 


1A58 


CNVRT8 


0000 


1A8A 


CNVa-Tg 


0000 


1A30 


CNVRT9.1 


0000 


1A34 
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CCHM 

C0SS1 

C0MK2 

COSSET 

CON 

C0S2SD 

COSCHD 

COSENSD 

CONIIP 

CONRADR 

CONRD 

C0NRa2S 

CONTIM 

COSWADR 

COKWRT 

COUNT 

CSLF 

CRT2MD 

CETRD 

CRTBQ2S 

DEFTESTS 

DEVIST 

DEVaSS 

DEVKS32 

DEVSADR 

DFF 

DIGACT 

DIGASC 

DIGERR 

DIGEXP 

DIG8SS 

DUSAVS 

DUSAVE1 

ECHO 

ECH01 

ECHHTN 

ENDII? 

E0TMS3 

EPR 

ERR1 

EERAiL 

ERRCOa 

EREC0M1 

ERFC0M2 

ERRD 

EEED1 

ERRDEV 

ERRDS 

EEEDSI 

EERL 

EEHL1 

EREilA 

ESBLIfS 

EERLVL 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



16itU 
165C 
16FE 
177C 
1898 
QA30 
0A32 
0A31 
2DE2 
0A2A 
0A2E 
0A48 
1850 
0A2C 
0A2F 
1768 
12AE 
0A36 
0A3U 
0A49 
18F2 
laAC 
17C0 
1700 
18AA 
16E6 
3E1D 
3E04 
3DA0 
3E11 
3DF2 
«2AA 

i»2ac 

1378 
1396 
1398 
2DA8 

180A 
OFEO 

lOAe 

105A 
1072 
1090 
OFEC 
OFFE 
10B0 
1744 
1026 
10E0 
103R 
1106 
1110 
1112 
1807 



1550 


1565* 


1590 


1651 


16 55 










1573* 


1628 
















1640* 


















773 


780 


1702* 














1754* 


















139* 


140 


226 














141* 


213 


223 


225 


1296 










140* 


















4036 


4044* 
















134* 


220 


1159 


1268 












137* 


138 


224 


235 


1269 










154* 


207 


228 


229 


1274 










652 


1742* 
















135* 


222 


1165 














138* 


1627 
















610 


623 


625 


1695* 












244 


271 


359 


401 


4 27 


537 


558 


693 


1085* 


143* 


















142* 


















155* 


















507 


509 


1768* 














1481 


1761* 
















829 


1718* 


1719 


1720 


1721 










805 


1722* 


1723 














135 5 


1475 


1760* 














1347 


1633* 


2168 














5031 


5051* 
















5023 


5049* 
















4802 


4819 


4833 


4910 


4927 


4941 


5019* 






5027 


5050* 
















5041 


5047* 


5049 


5050 


5051 










247 


254 


259 


318 


451 


1049 


1086 


1188 


1250 


255 


317 


5488* 














1158* 


















1162 


1164 


1168* 














1169* 


















3641 


3548 


3658 


3701 


3708 


3718 


3760 


3767 


3777 


3887 


3897 


3942 


3949 


3959 


4003 


4010 


4020 


4023* 


665 


1730* 
















731* 


1575 


1642 














733 


742 


747 


752 


761 


766 


794* 






764* 


1519 


1529 














732 


741 


746 


751 


760 


765 


773* 






777 


783* 
















734* 


744 


749 


754 


763 


769 








740* 


















743 


801* 
















802 


822 


1671* 














750* 


















753 


767 


321* 














755* 


















762 


835* 
















836 


839* 
















838 


840* 
















1528 


1729* 

















5487* 



3S20 



3827 



3837 



3880 
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£HR»IS3 0000 179A 
ESFNO 0000 17A2 



ESPPL1 


0000 


1130 


ERRPL1A 


OOOC 


113A 


EREPL1S 


0000 


113C 


ERRS 


0000 


1012 


SRRS1 


0000 


10C8 


ERRSAlfS 


0000 


42F8 


ERRSTA 


0000 


17«6 


ETESTN'O 


0000 


17A0 


EXPADS 


0000 


4090 


EXPLP81 


0000 


3E08 


EXPLPB2 


0000 


3512 


EXPOF? 


0000 


412E 


EXPSSK 


0000 


3D8A 


FCODE 


0000 


1749 


FIRST 


0000 


1730 


FORPRT 


0000 


0B45 


F0UND1 


0000 


0E38 


FCUND2 


0000 


0S3C 


GETCHS 


0000 


136C 


HALT9 


0000 


0F8E 


HEXASC 


0000 


UFA 



HEXASC1 


0000 


1204 


HEX TAB 


0000 


1780 


II 


0000 


1672 


II32 


0000 


167A 


IIPFLAG 


0000 


2DF0 


IIPINT 


0000 


2'igA 


IIPLOC 


0000 


2D3C 


IIPN5 


0000 


3F1E 


IIPCK 


0000 


2DD8 


IIFPS-i 


0000 


2DS8 


IIPRESNb 


0000 


3F1A 


IIPSSTNG 


0000 


3F12 


IHPTOP 


3000 


OOOOI 


INCB 


ooco 


1748 


INIT 


090Q 


18A8 


IKITRET 


0000 


0E50 



794 


1713* 


1714 


1715 


4676 


4744 


4994 


5037 


5071 


5105 


5135 


5166 


5206 


5234 


5276 


5322 


5458 




















572 


1518 


1526 


1549 


1558 


15S3 


1596 


1634 


1650 


1654 


1715* 


2032 


2052 


2072 


2093 


2116 


2128 


2151 


2163 


2188 


2216 


2257 


2277 


2297 


2319 


234-' 


2391 


2402 


2431 


2442 


2469 


2480 


2506 


2528 


2539 


2566 


2577 


2619 


2626 


2643 


2651 


2563 


2675 


2692 


7699 


2724 


2731 


2751 


2758 


2786 


2793 


2817 


2824 


2843 


2850 


2892 


2916 


2943 


2969 


2989 


3007 


3040 


3066 


3111 


3133 


3158 


3184 


3204 


3223 


3256 


3281 


3334 


3345 


3376 


3387 


3416 


3429 


3458 


3469 


3499 


3510 


3538 


3551 


36 3 8 


3645 


3654 


3598 


3705 


3714 


3757 


3''':4 


3773 


3817 


3824 


3833 


3877 


3884 


3893 


3939 


3946 


3955 


4000 


4007 


4016 


4648 


4712 


4787 


4800 


4817 


4831 


4849 


4693 


4908 


4925 


4939 


4959 


5402 


5421 


























766 


852* 


1577 


1644 




















853 


656* 
























855 


857* 
























745* 


























748 


811* 
























731 


738 


740 


745 


750 


755 


764 


4981 


5000 


5020 


5043 


5065 


5077 


5096 


5111 


5130 


5141 


5194 


5212 


5223 


5240 


5252 


5282 


■^308 


5328 


C4«1 


5464 


5505* 
























812 


826 


1673* 






















571 


604 


1714* 






















5270 


5287* 
























4556* 


4666 
























4558* 


46^0 
























5316 


5333* 
























4984 


5005* 
























1637 


1676* 


2121 


2124 


2156 


2159 


5220 














369 


376 


380 


1659* 




















254* 


266 


270 


345 


692 


















544 


554* 
























550 


555* 
























286 


422 


875 


865 


1152* 


















676 


682* 


6S9 


788 




















602 


804 


314 


824 


828 


845 


862 


868 


989* 


4659 


4663 


4667 


45-'1 


4675 


4725 


4735 


4743 


4935 


4989 


4993 


5024 


5028 


5032 


5036 


5069 


5100 


5104 


5134 


5165 


5205 


5233 


5267 


5271 


5275 


5313 


5317 


5321 


5445 


5449 


5453 


5457 
























993* 


1000 
























336 


878 


954 


996 


1527 


1707* 
















1316 


1582* 
























1590* 


























3605 


3635 


3667 


3695 


3727 


3754 


3787 


3814 


3845 


3874 


3909 


3936 


3968 


3997 


4039 


4041 


4043 


4050* 


















3597 


4029* 
























4031 


4048* 
























5160 


5162* 
























4034 


4041* 
























4030 


4044 


4 li 7 * 






















3656 


3716 


3775 


3 83 5 


3895 


3957 


4018 


51^1* 












3647 


3707 


3766 


3826 


38 8 6 


3948 


4009 


5159* 












5576 


























1675* 


























559 


1757* 
























564* 
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ISST\D3 


300 


42A4 


ISSTS3G 


0000 


4284 


ISTDEV 


0000 


1744 


INTLEV 


0000 


1674 


INTLVL 


0000 


18AE 


IMTLVl?! 


0000 


17F2 


INTPSW 


0000 


1734 


ISTSAV 


0000 


42B8 


IKTSTA 


0000 


1746 


ID 


0000 


OfllO 


10. OKI 


0000 


OAAC 


I0.0K2 


0000 


0AB2 


10.0X3 


0000 


OADO 


lO.OXU 


0000 


0B10 


lOSAVE 


0000 


42B4 


ISITERE 


0000 


1758 


KBBEAD 


0000 


14A0 


KBXIT 


0000 


14BA 


KEEP1 


0000 


OE20 


KEEP10 


0000 


0F9C 


KEEP101 


0000 


0FC6 


KEEP2 


0000 


0E2E 


KEEP3 


0000 


0E76 


KEEPa 


0000 


0E80 


KEEPm 


0000 


0E84 


KEEP 4 2 


0000 


0E9A 


XEEP43 


0000 


OEAO 


KEEPS 


0000 


0EA4 


KEEPS 


0000 


0SD8 


KEEP7 


0000 


0F08 


KEEP71 


0000 


0F16 


KEEP9 


0000 


0F62 


KEEP91 


0000 


0F70 


KSEP92 


0000 


0F96 


LADC 


0000 


0002 


LCK1 


0000 


39DA 


LCK2 


0000 


39EA 


LCOBE 


0000 


14D4 


LC0HE32 


0000 


1522 


LC0EE32A 


0000 


1562 


LC0BE32B 


0000 


1554 


LD30 


0000 


3CF6 


LD30.02 


0000 


3D22 


LD30.03 


0000 


3D2C 


1D30.1 


0000 


3D06 


LD30ERB 


0000 


3E62 


LDASC 


0000 


3EB7 


LDJtSG 


OOOD 


3E9E 


LfiHT 


OOOD 


00C8 


IEADE5 


0000 


oeA2 


LEVEL 


OOOD 


DDAO 



360S 


3671 


3731 


3791 


3849 


3913 


3572 


4673 


4741 


4991 


5034 


5067 


5132 


5163 


5203 


5231 


5273 


5319 


5367 


5455 


5480* 








4678 


4746 


4996 


5039 


5073 


5107 


5137 


5168 


5208 


5236 


5278 


5324 


5477* 


547S 






















1448 


1471 


1570* 


1671 


















1745* 
























1494 


1762* 






















1531 


1723* 


1729 




















1447 


1472 


1661* 




















1470 


1509 


5504* 




















1449 


1672* 


1673 




















111* 


196 


197 


205 


206 


212 


219 


221 


415 


556 


1142 


1160 


1248 


1260 


1295 




















200 


202* 






















203 


205* 






















210 


215* 






















232 


235* 






















353 


557 


1065 


1091 


1105 


1140 


1191 


1196 


1245 


1263 


1293 


5501* 


257 


565 


556 


659 


595 


735 


776 


1051 


1175 


1179 


1532 


1576 


1687* 
























1152 


1268* 






















1273 


1275* 






















543* 


546 






















249 


690* 


1048 




















702* 


704 






















549* 


552 






















577* 


680 






















583* 


636 


679 




















584* 


595 






















588 


592* 






















591 


594* 






















590 


593 


596* 




















611* 


629 






















627 


630* 






















631 


534* 






















648 


565* 






















669* 


787 






















650 


688* 






















614 
























4644 


4647* 






















4646 


4651* 






















240 


573 


1302* 




















1342* 
























1365* 


1370 






















1355* 


1356 






















4913 


4948* 






















4957 


4963* 






















4915 


4930 


4954 


4966* 


















4955* 


4965 






















4961 


5094* 






















5099 


5115* 






















5109 


5115* 


5115 




















90* 


93 






















74* 


78 






















466* 


1745 























5ic: 



S460 



1194 



1643 
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LINK 



0000 OOOF 



LINKSAV 

LINTfSG 

LIHTSG 

LNZB 

LOAD 

LOCKUP 

LOCHSG 

L00K1 

L00K2 

L001C3 

L00K4 

LOOKS 

LOOKUP 

LOOP 

LPADH 

LPB.01 

LPB.01A 

LP3.01B 

LPB.02 

LPB.02A 

LP3.02B 

LPS. 03 

LPE.03a 

LPB.03B 

LPB.04 

LPB.04A 

L?E.O'»S 

LPB.05 

LE3.05A 

LFB.05S 



0000 42AS 
0000 3EEC 
0000 3EPC 
0000 42AD 
0000 OOAC 
0000 16B0 
0000 17E5 
0000 0C1A 
0000 0C1E 
0000 0C2E 
0000 OPSC 
0000 0D78 
0000 0C12 
0000 1844 
0000 0A1A 
0000 2DE8 
0000 3018 
0000 301C 
0000 2E0B 
0000 3020 
0000 3024 
0000 2Eie 
0000 3023 
0000 302C 
0000 2E28 
0000 3018 
3000 301C 
0000 2E38 
0000 3018 
0000 30 1C 



57* 


215 


240 


244 


260 


264 


265 


266 


268 


269 


270 


271 


2 "'2 


275 


277 


279 


292 


300 


319 


323 


345 


352 


359 


362 


367 


379 


380 


384 


387 


401 


406 


411 


414 


422 


427 


428 


432 


534 


5 3'-- 


536 


537 


558 


559 


573 


602 


605 


607 


628 


633 


647 


651 


<^54 


657 


688 


692 


593 


696 


699 


702 


707 


708 


739 


776 


795 


804 


806 


814 


816 


824 


828 


830 


845 


847 


862 


868 


870 


918 


959 


1002 


1034 


1035 


1045 


1056 


1068 


1072 


1073 


1074 


1075 


1076 


1079 


1089 


1094 


1096 


1100 


1109 


1124 


1128 


1138 


1170 


1174 


1175 


1177 


1185 


1186 


1186 


1189 


1219 


1219 


1220 


1221 


1228 


1229 


1256 


1264 


1366 


1519 


1529 


1533 


1575 


1576 


1642 


1643 


1644 


1645 


1758 


2021 


2035 


2041 


2055 


2061 


2075 


2081 


2096 


2108 


2131 


2143 


2166 


2177 


2191 


2205 


2219 


2246 


2?';0 


2266 


2280 


2286 


2300 


2308 


2322 


2336 


2350 


2380 


2397 


2418 


2437 


2458 


2475 


2495 


2517 


2534 


2555 


2572 


2607 


2631 


2557 


2531 


2712 


2738 


27''3 


2788 


2806 


2831 


2 88 1 


2896 


2903 


2920 


2932 


2947 


2956 


2974 


2979 


29'33 


2997 


3011 


3029 


3044 


3055 


3070 


3100 


3115 


3120 


3137 


3147 


3162 


3171 


3189 


3194 


3208 


3213 


3227 


3245 


3250 


3271 


3285 


3323 


3340 


3363 


3382 


3405 


3424 


3447 


3464 


3486 


3505 


3527 


3546 


3659 


3720 


3780 


3902 


39f 1 


4021 


4642 


4651 


4652 


4659 


4663 


4667 


4671 


4675 


4677 


4679 


4681 


46R3 


4710 


4715 


4719 


4725 


4735 


4743 


4745 


4747 


4749 


4751 


4752 


4772 


H7-75 


4856 


4857 


4878 


4881 


4966 


4967 


4985 


4989 


4993 


4995 


4997 


4999 


5024 


5028 


5032 


5036 


5036 


5040 


5042 


5069 


5072 


5074 


5075 


5100 


5104 


5106 


5108 


5110 


5134 


5136 


5138 


5140 


5155 


5157 


5159 


5171 


5205 


5207 


5209 


5211 


5233 


5235 


5237 


5239 


5267 


5271 


5275 


5277 


5279 


5281 


5313 


531'' 


5321 


5323 


5325 


5327 


5367 


5369 


5395 


5414 


5445 


5449 


5453 


5457 


5450 


5461 


5463 
























4642 


4651 


4719 


4752 


4772 


4775 


4856 


4878 


4881 


4956 


54R2* 






5139 


5145* 
























2118 


2153 


3540 


3700 


3759 


3819 


3879 


3941 


4002 


5129* 








63 


5489* 


5517 


5548 




















79* 


87 
























1602 


1610 


1512* 






















846 


1726* 
























325* 


332 
























327* 


336 
























330 


333* 
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2259 


2279 


2299 


2321 


2349 


2303 


2404 


2433 


2444 


2471 


2432 


2508 


2530 


2541 


2568 


2579 


2621 


2628 


2645 


2653 


2670 


2677 


2594 


2701 


2726 


2733 


2753 


2760 


2795 


2819 


2826 


2845 


2852 


2894 


2918 


2945 


2971 


2991 


3009 


3042 


3068 


3113 


3135 


3160 


3186 


3205 


3225 


3258 


3283 


3336 


3347 


3378 


3389 


3418 


3431 


3460 


3470 


3501 


3511 


3540 


3553 


3640 


3647 


3656 


3700 


3707 


3716 


3759 


3766 


3775 


3819 


3826 


3835 


3879 


3886 


3895 


3941 


3948 


3957 


4002 


4009 


4C18 


4650 


46P4 


4714 


4753 


4789 


4802 


4819 


4833 


4851 


4895 


4910 


4927 


4941 


4961 


5001 


5044 


5073 


5112 


5142 


5172 


5213 


5241 


5283 


5329 


5404 


5423 


5465 




1345 


1548* 
























32* 


56 


910 


917 


946 


958 


989 


1001 


1033 


1073 


1085 


1099 


1184 


1227 


1323 


1506 






















32 


5509* 
























338 


1753* 
























339 


534* 
























4703* 


4709 
























4706 


4711* 
























2245 


2248 


2265 


2269 


2285 


2288 


2307 


2310 


2335 


233R 


3614 


3630 


3690 


4561* 


























555 


635 


578 


1689* 




















1292 


1297 


1701* 






















2380* 


2411 
























2389 


2393* 
























2400 


2406* 
























2407 


2415* 
























2418* 


2451 
























2429 


2435* 
























2440 


2446* 
























2447 


2455* 
























2468* 


2489 
























2467 


2473* 

























5i ?I£S 
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3ET3.10 0000 IDEE 

SET3.11 0000 1E00 

SET3.12 0000 1E04 

SET3.13 0000 1E2E 

SETS. 14 0000 1E38 

SET3.15 0000 1E62 

3ET3.16 0000 1E88 

SET3.17 0000 1E9A 

SST3.18 0000 1E9E 

3ET3.19 0000 1EC8 

SET3.1A 0000 IEEE 

SET3.13 0000 1EFC 

SETI* 0000 1FD6 

3ET4.01 0000 2000 

SETit.02 0000 2018 

SET!*. 03 0000 2028 

SET4.0li 0000 2030 

SET4.05 0000 205A 

SETlt.06 0000 2072 

SET4.07 0000 207A 

SETlt.08 0000 20AU 

SEiK.Og 0000 20BC 

SETU.10 0000 20CS 

SETU.11 0000 20D6 

SETa.12 0000 2100 

SET4.13 0000 2118 

SETI4.14 0000 2128 

3ET4.15 0000 2130 

SET4.16 0000 215E 

SET4.17 0000 2174 

SET4.18 0000 217A 

SET4.19 0000 21A8 

SET4.20 0000 21C0 

SET4.21 0000 21D0 

SETS 0000 21D4 

SETS. 01 0000 2208 

SETS. 02 0000 2212 

SETS. 03 0000 2244 

SETS. 04 0000 225C 

SETS. 05 0000 2262 

SETS. 05 0000 2298 

SETS. 07 0000 22R0 

SETS. 08 0000 22E6 

SETS. 09 0000 2320 

SETS. 10 0000 232C 

SETS. 11 0000 235A 

SETS. 12 0000 236E 

SETS. 13 0000 2380 

SETS. 14 0000 2386 

SETS. 15 0000 23B8 

SETS. 16 0000 23CC 

SETS. 17 0000 23D2 

SETS. 18 0000 2404 

SETS. 19 0000 2418 

SET6 0000 241C 



2478 2484* 

248S 2493* 
2495* 

2504 2513* 

2517* 2543 

2526 2532* 

2537 2543* 

2544 2553* 

2555* 2584 

2564 2570* 

2575 2581* 

2582 2S86* 

26S1* 2707 

2690 2696* 

2697 2703* 

2704 2709* 
2712* 

2721 2728* 

2729 2735* 

2738* 2768 

2749 27SS* 

2756 2763* 

2764 2770* 

2773* 2801 

2784 2790* 

2791 2797* 

2798 2803* 
2805* 

2815 2821* 

2822 2328* 

2831* 2857 

2841 2847* 

2848 2853* 

2854 2858* 
2878* 

2890 2896* 

2901* 2925 

2914 2920* 

2922 2928* 

2930* 2952 

2941 2947* 

2949 2953* 

2967 2974* 

2987 2993* 

2996* 3017 3023 

3005 3011* 

3016 3019* 

3022 3025* 

3027* 3049 

3038 3044* 

3046 3051* 

3053* 3075 

3064 3070* 

3072 3077* 
3097* 
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SET6.01 0000 2U50 

SET6.02 0000 2a5A 

SET6.03 0000 248C 

SET6.0U 0000 24A4 

SET6.05 0000 24AA 

SET6.06 0000 24E0 

SET6.07 0000 24F8 

SETS. 08 0000 252E 

SET6.09 0000 2568 

SET6.10 0000 2574 

SET6.11 0000 25A4 

SFT6.12 0000 25B8 

SET6.13 0000 25CA 

SFT6.1i* 0000 25D0 

SST6.15 0000 2602 

SET6.15 0000 2616 

SFT6.17 0000 261C 

SETS. 18 0000 264E 

SET6.19 0000 2662 

SETT 0000 265F 

SET7.01 0000 269A 

SET7.02 0000 26C0 

SET7.03 0000 26D2 

SET7.04 0000 26DA 

SET7.05 0000 2706 

3ET7.05 0000 272C 

SET7.07 0000 273E 

SET7.0a 0000 27H6 

SET7.0q 0000 2775 

SET7.10 0000 27A0 

SET7.11 0000 27B2 

SET7.12 0000 27BA 

SET7-13 0000 27f8 

SET7.1U 0000 280A 

SET7.15 0000 281C 

SET7.15 0000 2e2'4 

SET7.17 0000 2852 

SET7. 18 OOCO 2874 

SET7.19 0000 2886 

SET7.1A 0000 2e8E 

SET7.1B 0000 2SC0 

SET7.1C 0000 2SEA 

SET7.1D 0000 28FC 

SETINT 0000 2900 

SETIMT1 0000 290F 

SETIST2 OOCO 29AC 

SETIN'T3 0000 2S54 

SETISTt 0000 2?00 

SETIST6 0000 2C53 

SEriNT7 0000 2D00 

SETK3 0000 1492 

SETMSG 0000 3f44 

SETPIC1 0000 293E 



SETPIC: 



0000 2955 



3109 -3115* 

3118* 3142 

3131 3137* 

3139 3143* 

3145* 3167 

3156 3162* 

3164 3168* 

3182 3189* 

3202 3203* 

3211* 3233 3239 

3221 3227* 

3232 3235* 

3238 3241* 

3243* 3265 

3254 3260* 

3262 3267* 

3269* 3290 

3279 3285* 

3287 3292* 

3322* 3354 

3332 3333* 

3343 3349* 

3350 3358* 

3362* 3396 

3374 3380* 

3335 3391* 

3392 3400* 

3404* 3433 

3414 3420* 

3427 3433* 

3434 3442* 

3446* 3477 

3456 3462* 

3467 3472* 

3473 3481* 

3485* 351.8 

3497 3503* 

3508 3513* 

3514 3522* 

3526* 3560 

3536 3542* 

3549 3555* 

3556 3566* 

3596* 

3601* 

3652* 

3722* 

3782* 

3840* 

3904* 

3963* 

215 275 654 126; 

5159 5175* 

3616* 3618 

3675* 3677 
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i-t. .1, i a i 
SETPIC3 


0000 


2A85 


SETPIC4 


0000 


2B32 


SETPICs 


0000 


2BD6 


SETPIC5 


0000 


2C8A 


SETPTC7 


0000 


2D3A 


SETUP 


0000 


14BC 


SGNE3S 


0000 


3D32 


SGNM33 


0000 


3D7A 


SINK 


0000 


17UA 


SNG1 


0000 


3A8A 


SNG2 


0000 


3AAA 


SRES-01 


0000 


2DF8 


SRES.02 


0000 


2E08 


SEES. 03 


0000 


2E18 


SEES. 07 


0000 


2E58 


SEES. 19 


0000 


2F18 


SEES. 27 


0000 


2F98 


ST 


0000 


0A88 


STAKS3 


0000 


17C8 


START 


0000 


0B18 


START1 


0000 


0A68 


STAST2 


0000 


0A7E 


STAET3 


0000 


0A98 


STASIA 


0000 


0A60 


STBP.01A 


0000 


3018 


STBP.01B 


0000 


301C 


STBP.02A 


0000 


3020 


STEP. 023 


0000 


3024 


STBP.03A 


eooo 


3028 


STEP. 038 


0000 


302C 


STBP.07A 


0000 


3030 


STEP. 073 


0000 


3034 


STEF.19A 


0000 


3090 


STEP. 193 


0000 


309t 


STBP.27A 


0000 


30D0 


STBP.27B 


0000 


3004 


STBPACT 


oooo 


352C 


STBPCHK 


0000 


3A50 


STBPEXP 


0000 


3558 


STBP!J3 


0000 


3A82 


STCC 


0000 


3FAA 


STCOS 


0000 


0A9C 


STOP. IT 


0000 


ODAA 


ST0ES10 


0000 


1CC0 


ST0EE2 


0000 


1B9A 


ST0RE3 


0000 


IBDK 


STOHEU 


0000 


1C10 


ST0HE5 


0000 


1C18 


STORES 


0000 


1C4E 


ST0SS7 


0000 


1C6A 


STORES 


0000 


1C6E 


ST0RS9 


0000 


1CAU 


STEC 


0000 


3FF2 


SVCERR 


0000 


1724 


SYSQERH 


0000 


1718 



PAGE 143 09:37:08 06/03/81 



3735* 


3737 






3795* 


3797 






3854* 


3856 






3917* 


3919 






3978* 


3980 






1130 


1292* 






4789 


4895 


4980* 




4998 


5004* 


5005 


5006 


1165 


1195 


1199 


1207 1249 1254 


4722* 


4729 






4732* 


4739 






2244 


4068* 






2264 


3613 


4071* 




2284 


4074* 






2306 


4083* 






4142* 








2334 


4177* 






181 


135* 






815 


1720* 






185 


239* 


472 




175* 








174 


182* 






103 


104 


105 


191* 


97 


172* 


191 




2242 


4208* 


4210 


4222 4224 4226 


2243 


4209* 


4211 


4223 4225 4227 


2262 


4213* 


4215 




2253 


4214* 


4216 




2282 


4218* 


4220 




2283 


4219* 


4221 




2304 


4230* 


4235 




2305 


4231* 


4236 




4294* 


4299 






4295* 


4300 






2332 


4338* 


4343 




2333 


4339* 


4344 




4564* 


4750 






2260 


22 80 


2300 


2322 2350 3659 


4568* 


4743 






4714 


4718* 






5199 


5201* 






196* 


239 


1626 




471* 


1754 






2352 


2357* 






2255 


2260* 






2275 


2260* 






2295 


2300* 






2304* 


2327 






2317 


2322* 






2324 


2330* 






2332* 


2355 






2345 


2350* 






5227 


5229* 






1351 


1653* 






1349 


1649* 







1270 



1677* 



4700* 



TEMP 

TEST 

TEST1 

TEST2 

TEST3 

TESTa 

TESTS 

TEST6 

TEST7 

TESTS 

TESTS. 1 

TESTS. 2 

TESTS. 3 

TESTS. 4 

TESTS. 5 

TESTS. 6 

TESTS. 7 

TESTOP 

TESTS 

TiaE 

TIKE3 

TITLE 

TOTAL 

TOTEBH 

TOTMSS 

TSANSTA3 

TSTESK 

TSTBRK1 

TSTB3K2 

TSTB3S3 

TSTBaK« 

TSTBHKS 

TSTBP.K6 

TSTBSK7 

TSTBSK8 

TSTDU 

TSTEND 

TSTHS2 

TST0P1 

TST0P2 

TST0P3 

TST0P4 

TTYGET 

UNAR-f 

'JKAEYI 

UNPK 

UNPK1 

'JSPK2 

'JKPK3 

UNPK4 

UFKCK 

UPKCaI 

UPKCK2 

UPKCK3 

jFKDAT 



0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

1000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

QOOO 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



14236 

1838 

1920 

1864 

1CCH 

1F00 

21DU 

241C 

2666 

2900 

294E 

29EE 

2A9 6 

2B42 

2BE6 

2C9A 

2D«A 

OOBO 

18FC 

OA«E 

11B8 

18P0 

1762 

1764 

17A6 

3884 

1338 

1406 

1420 

143C 

1454 

144C 

1438 

145E 

140E 

146C 

OEEA 

1790 

0CC8 

ODDO 

0DE6 

ODFO 

1434 

11AA 

11AC 

3C54 

3C56 

3Ce6 

3CC2 

3C?2 

3C12 

3C1i^: 

3C2A 

3C35 

3390 
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372 


375 


385 


388 


390 


5502* 








357 


435 


508 


510 


529 


530 


542 


548 


589 


1772 


2015* 
















1772 


2240* 
















1772 


2376* 
















1772 


2504* 
















1772 


2876* 
















1772 


3095* 
















1772 


3317* 
















1773 


3594* 
















3608 


3630* 
















3670 


3690* 
















3730 


3749* 
















3790 


3809* 
















3848 


3869* 
















3912 


3931* 
















3 971 


3992* 
















436 


505* 
















616 


1771* 
















161* 


y13 
















910* 


















245 


1766* 
















566 


656 


S68 


674 


698 


1692* 








567 


706 


783 


785 


1693* 










694 


1716* 
















3463 


3504 


3543 


3852 


4595* 










428 


605 


628 


651 


1062 


1075 


1184* 






1198 


1207* 
















1205 


1217* 


1241 














1187 


1190 


1201 


1206 


1216 


1223 


122"5* 






1215 


1233* 


1240 














121S 


1230* 
















1224* 


1232 
















1237* 


1238 
















1209* 


1211 
















647 


688 


776 


1034 


1109 


1128 


1138 


1245* 




621* 


2227 


2357 


2586 


2858 


3077 


3292 


3565 


4025 


605 


1711* 


1712 














506 


•!;i3* 
















516* 


528 
















520 


524* 
















523 


527* 
















1273* 


















521 


525 


900* 














901* 


905 
















4891 


4897* 
















4898* 


















4906 


4912* 


4943 














4923 


4929* 
















4937 


4943* 
















3115 


3137 


3189 


3203 


3227 


3260 


3285 


3720 


4877* 


3162 


U8B1 * 
















4884* 


















4880 


4833 


4887* 














302"^ 


4472* 

















592 



1740* 



SSSIiS 



■:?;<DiST 


0000 


39A!l 


UPKS3S 


0000 


3396 


UFKSRC 


0000 


3110 


■JSKSaC.N 


0000 


3250 


:j?;<SRC.? 


0000 


3130 


VIHTADSS 


0000 


1740 


WA3DU 


0000 


175E 


WASP'JI 


0000 


1760 


XII 


0000 


15AC 


XI16A 


0000 


15AA 


XI2 


0000 


15BC 


XI3 


0000 


15D8 


XI32 


0000 


1572 


XI32A 


0000 


1580 


XIH 


0000 


15F6 


XI5 


0000 


15FA 


XIHR3 


0000 


15FE 


XISXIT 


0000 


15FC 


ZCK1 


0000 


3BE6 


ZCK2 


0000 


3C02 


ZCK3 


0000 


3C0C 


ZER01 


0000 


14DE 


ZSH02 


0000 


laEE 


ZSF03 


0000 


1«FE 


Z5:50CK 


0000 


3BD6 


ZEEONE 


0000 


0D90 


ZES0HE2 


0000 


0088 



INSTBU^ 


CTION S 


ET TEST 


06-233 


500 


PAGE 
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;37:08 


06/CS/S-i 


3102 


3123 


3149 


3173 


3196 


3215 


3247 


3 273 


3690 


U888 


4902 


4921 


4935 


4955 










3051 


4475* 
















2883 


2908 


2934 


2958 


2981 


2999 


3025 


3031 


3051 


4792 


4810 


4824 














«430* 


















4393* 


















1638 


1668* 
















242 


539 


568 


665 


691 


1037 


1040 


1146 


1690* 


243 


540 


649 


1038 


1043 


1691* 






1475* 


1480 
















1474* 


















1478 


1481* 
















1498* 


















1312 


1364 


1446* 


4024 












1456* 


















1503 


1505 


1509* 














1507 


1511* 


1513 














1476 


1482 


1517* 














1483 


1513* 
















4845* 


4855 
















4847 


4853* 
















4807 


4844 


4856* 














1306* 


1307 
















1310* 


1311 
















1314* 


1316 
















4805 


4822 


4838* 














458* 


1742 
















454* 


1743 

















3749 3779 3809 4';25* 
3057 3960 4387* 4779 



SERIES 3200 COHMSECIAL IHSTSUCTIOS SET TEST 06-238 EOG 
EgaOR £ WABNIHG SUMMARY : 



PAGE me 09:37:03 06/08/51 



1 


3 


LISS 


2053 


? 


3 


LI-JE 


2033 


? 


a 


LlfE 


2110 


? 


a 


LINE 


2145 


? 


3 


LINE 


2288 


? 


3 


LINE 


2M60 


? 


3 


LINE 


2i»50 


? 


3 


LIHE 


280B 


? 


3 


LINE 


2808 


? 


3 


LINE 


2833 


? 


3 


LIPS 


23 33 


? 


3 


LINE 


2934 


? 


3 


LINE 


2934 


? 


3 


LINE 


3149 


? 


3 


LINE 


3149 


? 


3 


LINE 


3407 


? 


3 


LiiS'E 


3407 


? 


3 


LINE 


3529 


? 


3 


LIVE 


3529 



